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A GRAFtX 80 F/T 6 versStiL Com 
eta voc6 pode facilmente imprimir 
formula rios continues e fothas 
soltas Como p ape is de carte, 
envelopes, etiquetas, etc. Isto 
porque a GRAFIX 80 F/T 6 a unica 
qua vem equipada com tiator e 
com citindro de borracha, igual aos 
das m3 quinas de esemver, 
permrtindo a Impressio da primeira 
& ultima linha, 



silenciosa. Imp rime am 80 colunas 
a 160 caracteres por seg undo com 
baixo nTvel de mido. 

Atom de tudo isso, a GRAFIX 80 
F/T 6 compatfvel com todos os 
micmcomputadores, especialmente 
com os compatfveis tBM-PC, 
imprimindo todos os softwares 
dispontveis ID base III, Lotos 1-2-3, 
VWoitl, ABC, ChartstaretcvJ 





A GRAFIX 80 F/T 6 ripida a 



Conheqa a GRAFIX 80 F/T, 

A impnsssora certa para seu 
micro pessoal ou professional. 




Al. Amszonai, B32 - A'lphaviUe 
Banter! - SP Tet. 421-1247 
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N esta edigSo de MS vocA terA opor- 
tunidade nao so de digitar progra- 
mas educativos , mas tambAm de 
se inteirar sobre como as esco/as brasileiras 
tSm utHizado os micros. 

Mesmo em sociedades mais experientes 
com este tipo de apUcagEo — como os 
EUA, aonde o numero de computadores 
em sala de aula chega perto de 1 milhSo , 
segundo a revista TIME — as duvidas nSo 
desapareceram. Quanto ao uso dado aos 
micros pel os col Agios, jA se tentou de tudo: 
inicialmente o quente era ut ’Uizar a mAquina 
para monitorar exerefeios prAticos; depois 
o principal esforgo passou a ser ensinar 
programagSo, em especial BASIC e LOGO, 
e atualmente a maioria das escolas norte- 
am erica nas p ref ere treinar os alunos na ope- 
ragEo depacotes, como os edit ores de texto. 

Seja qua / for a utilizagao, no entanto, 
existem dois problemas graves que hoje 
preocupam os educadores: a elitizagao cres- 
cente do ensino e a fa/ta de software de qua- 
lidade para a criagao de padrdes de uso. 

No caso do Brasil, que ja possui desigual- 
dades estruturais fortes, nao bA muito como 
evitar a criagao de mais uma elite. Apesar 
dos esforgos do governo em minim izar o 
problem a, atravAs do projeto EDUCOM 
(frequentemente ameagado por falta de 
verbas), A inegAvel que a rede privada estA 
mi/hOes de a nos A f rente das escolas publi- 
cas. 

JA o prob/ema da produgao de software 
educaciortal de bom nfvel parece estar me- 
Ihorando. Os fabricates tAm incentivado 
esta Area e o que at A aqui era produgSo 
am ad ora, geralmente um professor -usuArio 
ou usuArio- professor desenvolvendo am pe- 
quena esca/a , por encomenda de uma esco- 
la, vai ganhando perspectivas com ere ia is. 

Na bora de desenvolver, a solugao A 
fugir do bloco do "eu sozinho", pois jA A 
con sen so que a produgao de programas edu- 
cacionais, para ser viAvel, tern que ser um 
trabalho de equipe, que conte com a parti- 
cipagSo de tAcnicos e mestres. E na bora de 
comprar, A preciso criar critArios de avalia- 
gSo precisos, que passam por aspectos como 
objetivo; pedagogia; documentagao e estru- 
tura da programagao em si. Afina/, expor 
sistematicamente o aluno a programas erro- 
neamente concebidos pode levar a resulta - 
dos desastrosos. 
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Ler Micro Sistemas eum dos 
melhores programas que 
voce pode fazer em materia 
de Iniormatica. Mas progra- 
ma bom mesmo voce vai fa- 
zer nesse TK-90X que a Micro 
Sistemas vai Ihe dar de presen- 
te. E que presente! Sao 2 com- 
putadores por mes (assim, suas 
chances de ganhar serao em dobro), duran- 
te os meses ae outubro.novembro e dezembro. 
E se depois dessa voce nao fizer urn progra- 
mao, nao importa. Nas paginas de Micro Sis- 
temas voce sempre encontra urn sob medida 
para as suas necessidades. 




VEJA COMO E FACIL GANHAR 



Para ganhar urn TK-90X e muito sim- 
ples. Basta voce assinar, por um ano, a 
revista Micro Sistemas e responder a 
consulta no pe do cupom. ATENCAO: 
renovacao de assinatura tambem vale 
para a promocao. 

No mes de Janeiro tera um quarto 
sorteio para os que nao foram con- 
templados em OUT/NOV/DEZ. 



TK-90X E O MAIS RECENTE LANCAMENTO DA MICRODIGITAL ELETRONICA LTDA. 



ASSINATURA AN UAL 



MICRO SISTEMAS Cr$ 110.000 



□ ASSINATURA 



□ RENOVACAO 



Empresa 



. Profissao / cargo 



Endereco para remessa 



Cidade_ 



Preencha um cheque nominal a ATI Editora Ltda e envie para: 
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Sdo Paulo: Rua Oliveira Dias, 153 - Jardim Paulista - 01433 
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Qual o tema que voce prefere ver nas paginas de sua MS? 




O desenvolvimento de software educativo exige criatividade e 
algumas tecnicas adequadas. Se voce tem um micro da linha TRS-8G 
e deseja ingressar nesta area, este artigo podera ajuda-lo. 




Ensinando 

m 



o micro a ensinar 

Heber Jorge da Silva 



S em duvida, uma questao bastante polemica nos dias 
de hoje 6 a da crescente utiliza^ao do microcomputa- 
dor nas escolas como instrumento auxiliar de ensino. 

Existe a corrente dos que acham que tal pratica e pre- 
judicial, sob a alega^ao de que ela inibe a capacidade de racio- 
cinio das crian 9 as. Realmente, ficamos preocupados quando 
vemos, por exemplo, as crian^as abandonarem o estudo da ta- 
buada e ficarem totalmente dependentes de uma calculadora 
para saberem quanto s3o 7x6. Acontece que, todos nos sabe- 
mos, o tempo do “de cor e salteado” ja passou e o microcom- 
putador esta ai mesmo surgindo como uma especie de exten- 
s5o da professora, quando utilizado de forma inteligente e ade- 
quadamente. 

As crian^as sao fascinadas pelo video. Quern duvidar disso 
e so fazer uma visitinha de observa^ao a uma dessas lojas de vi- 
deogames, para se convencer do contrario e descobrir, talvez, 
que este fascinio nao e um privilegio so das crian^as... Surge 
ent§o a questao: por que nlo aproveitar uma coisa que tanto 
prende a aten 9 ao das crian^as para fazer com que elas apren- respostastem uma seqiiencia facilmente descoberta. 
dam sem sentir que estao aprendendo, ou ainda fazer com que Um recurso im prescind l'vel na elabora^o de programas edu- 
aprendam se divertindo? cativos e a utiliza^So da capacidade grafica do seu micro. Com 

Para voce que acredita no potencial do micro no auxilio ^ este recurso, voce pode associar figuras &s questdes propostas, 

educa^o e deseja escrever programas educativos, aqui vao bem como criar efeitos especiais que tornem as suas telas mais 

algumas dicas que poderao ser aproveitadas como tempero dos atrativas e agradaveis. Por exemplo, com a combina^o de di- 

seus programas, tornando o aprendizado mais facil e eficiente. versos codigos de caracteres graficos do seu microcomputador, 

£ bom ter em mente que, sempre que puder, a crian 9 a vai voce pode formar um conjunto de numeros ou letras que pro- 

tentar dar um jeitinho de acertar sempre. Uma boa medida porcionarSo efeitos bastante interessantes, que nao seriam con- 

para se evitar isso e a desativa 9 ao da tecla BREAK ou a inibi- seguidos com o conjunto de caracteres normais fornecidos pelo 

9 ao do comando LIST do programa. Qualquer uma delas difi- gerador de caracteres da maquina. A listagem 1 e uma demons- 

cultara o acesso e altera 9 ao das variaveis do programa. Para de- tra 9 ao da cria 9 ao e aplica 9 ao de um conjunto de caracteres re- 

sativar a tecla BREAK, coloque no inicio do seu programa a presentando os digitos de 0 a 9, com altura igual a duas linhas 

instru 9 ao: POKE 16396,1 75 :POKE 16397, 201 e para reativa- de video. Este conjunto pode ser muito util na proposi 9 §o de 

lo use: POKE 16396, 201. 0 comando LIST do programa pode quest&es de matematica, com um efeito visual muito bom, e 

ser inibido com: POKE 16863,1 95 JPOKE 16864, 1 14POKE que voce poderd facilmente adaptar e usar em seu programa: a 

16865,0 e restabelecido atraves de: POKE 16863, 201 POKE linha 30 reserva espa 90 para o armazenamento das strings; nas 

16864, 191 TOKE 16865, 147. linhas de 40 a 140 sao criados os digitos de 0 a 9, utilizando-se 

A fun 9 ao RND deve ter uso constante em seu programa. As os codigos de caracteres graficos do micro, e armazenando-os 
questOes que obedecem a uma regra logica sao captadas pela em um arranjo string AS ( ). As linhas de 150 a 180 demons- 

crian 9 a, que passa a acertar as respostas sem fazer uso do racio- tram uma das maneiras de se passar para o video os digitos gra- 

cinio. Um exemplo tipico sao as questOes de tabuada,onde as ficos criados, atraves de uma rotina INKEYS onde os digitos 
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captados pela rotina sao utilizados como subscri 9 ao do arranjo 
de variaveis string. Um outro modo de se mostrar os graficos 
criados para o video se aplica no caso de se ter um numero ar- 
mazenado em uma variavel qualquer. Para ver como funciona, 
substitua as linhas de 150 a 180*nas listagens 1 ou 2 por: 

ISO CUi mrVT *D»qtt# um nuaero* t H* 
too ro* 1-1 to lo(n«< 

170 nitMT A< VAL> MIDI I HI .1,1)1*11 I AT ; 
no Ncrr 

Na listagem 2, voce tem um outro conjunto de caracteres 
graficos, tambem representando os digitos de 0 a 9, agora com 
altura de tres linhas de video. Arme-se de uma boa dose de pa- 
ciencia, pegue uma folha de lay-out de video do seu micro e 
comece a trabalhar; fa 9 a o mesmo com as letras do alfabeto e 
os demais caracteres. 

Outro exemplo da utiliza 9 ao dos recursos graficos do seu 
micro para enriquecer a apresenta 9 ao dos seus programas e a 
caretinha triste ou alegre para condenar ou comemorar os erros 
e acertos obtidos. £ espantoso como uma coisa t2o simples 
pode exercer um efeito psicologico tao forte sob re as crian 9 as! 
Elas passam a se esfor 9 ar o maxi mo para n2o verem aquela ca- 
rinha triste. Na listagem 3, voce vera como construir e utilizar 
essas caretinhas, uma de cada vez. 

Utilizando a rotina da listagem 4, voce tera um efeito tam- 
bem bastante interessante. Assim que captar uma resposta erra- 
da da crian 9 a, chame esta rotina em linguagem de maquina de 
dentro de um loop, e voce tera a impressao de clar5es de ex- 
plos6es, prococados pela inversao de todos os caracteres grafi- 
cos e espa 9 os existentes na area de video, ficando intactos os 
demais caracteres. Todos os artificios utilizados sao vdlidos, 
desde que a crian 9 a veja imediatamente os efeitos e resultados 
dos seus erros e acertos. 




A possibilidade de se obter som no micro atraves da portd 
do cassete e um outro recurso muito valioso na concep 9 ao de 
programas educativos. Para melhor avaliar a importancia do 
som, experimente come 9 ar a jogar um game sonoro qualquer e, 
apos alguns minutos, desligar os plugs do som. Voce sentira 
subitamente que o jogo perdeu muito do seu atrativo e bem 
depressa voce perdera o estimulo de continuar jogando. O mes- 
mo acontece com os programas educativos: o som, da mesma m 
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ENSINANDO O MICRO A ENSINAR 



TABELA DE ESCALAS 



Listagem 5 




lO REM •*« EXEMPLO 5 

20 REM til ROTINA DE SOM, EMPACQTADA NA STRING MS* 

30 MS*-STRING*<27. 191 > i S- VARPTR (MS* > i SS-PEEK <S* 1 > +256SPEEK <S«-2> I 

IFSS>32767THENSS»SS-65536 

♦O F0RD-SST0SS«-26«READNi POKED. N:NEXTD 

50 IFPEEKC 16396) -201 THENPOKE 16526. PEEK <S«-1 ) i POKE 16527, PEEK <S+2 > E 
LSECMD” T " t DEFUSRO-SS 

60 DATA 205.127.10,77.68,62,1.105.211.255,45.32.253.60,105,211.2 
55.45.32.253, 13. 16.238. 175. 2! 1 . 255, 201 
70 CL 5 1 PR 1 NT “ D I G I TE OUALOUER TECLA" t t RANDOM 
80 IF INKEY*— “ " THEN 90 ELSE R»RND<3> 

90 ON R GOSUB 120,130.140 
lOO GOTO 90 

MO REM SSS Lx -mol os d- chanatUt, atravac da (uncao USR. 

E*p*ni»*nt» com outros nuiwrot ... 

120 FOR 1-10 TO 20tU-USR<28000-*-I > t NEXT: RETURN 

130 FOR 1-1 TO 20 1 U— USR < lOOO+RND ( lOOO) ) i NEXT t RETURN 

140 U— USR ( lOOOO+RND ( 22000) > I RETURN 



forma que os graficos, contribui imensamente para que a crian- 



9 a se prenda mais no que Ihe e apresentado. A listagem 5 e 
uma rotina em linguagem de maquina que permite a obten 93 o 
de sons pela porta do cassete. Fa 9 a algumas experiences com 
as chamadas, inclusive dentro de loops, atd obter os efeitos so- 
noros desejados. 

Finalmente, que tal comemorarmos o sucesso do aprendiza- 
do com uma musica bem apropriada? E por se t ratal de musi- 
ca, vamos demonstrar a execu 9 ao do “Parabens pra voce”, se- 
gundo a tdcnica desenvolvida pelo extraordinario Leo Chris- 
topherson, um dos “papas” dos efeitos especiais, autor de di- 
versos jogos ja bastante conhecidos aqui no Brasil, como Dan- 
cing Demon, Voyage of the Valkyrie, Android Nim e muitos ou- 
tros, verdadeiras obras primas de efeitos graficos e sonoros. 
Esta tecnica, que e mostrada na listagem 6 , jd colocada no do- 
minio publico pelo autor ha algum tempo atrds, utiliza o em- 
pacotamento de strings com rotinas em linguagens de maquina. 




Listagem 6 



10 REM St EXEMPLO 6 

20 CLSt CLEAR500 1 PR I NT " P ARABENS PRA VOCE “ 1 CMD" T 
30 S»-“ 



40 SI -PEEK (VARPTR <S* ) ♦! ) * S2-PEEK < VARPTR < S*) ♦2) t SO— SI ♦52*256 
50 POKE 16422. Sit POKE 1 6423. S2 

60 A*-* 



70 A 1 -PEEK < VARP TR ( A* ) ♦ 1 > l A2— PEEK < VARPTR < A* ) * 2 ) t AO -A 1 -*-A2 S 256 
80 GOSUB23G 

90 POKESO+ 1 , A1 1 POKE SO* 2, A2t PR I NT "PRESS I ONE OUALOUER TECLA PARA E 
XECU.TAR- 

lOO IF INKEY*-"* THEN lOOELSE LPRINT 
110 GOTO lOO 

120 REM Sit Rot i n* dm nuaica - 70 byt»« 

130 DATA 33.1.1.243.62.1.8.62.35.61.190.32.2,251 
140 DATA 201.126.35.86.94.29.14,10,6,225.21,32.14.87 
150 DATA 62.120.190.40.6.8.238.3.211.255.8.122.86.29 
160 DATA 32,15,95.62.120,190,40.6.8,238,3,211.255,8 
170 DATA 123.94.29.16.219,13.32,214,61.32.209,35.24,193 
180 REM SSS MUSICA i duracao, not* (aaxiao 254 byt««) 

190 DATA 12.118.8.118.32.105,12.118.16.88.36,93.4,120 

200 DATA 12,118,8,118,32,105,12,118.12.79.16.88,24.88.4,120 

210 DATA 8.70.12.70.24.59.16.70,12.88.24.93.16.105.4.120 

220 DATA 12.66.8.66,24,70,24,88.16,79,16,88.32.88.16.120 

230 RESTORE t F0RN-OT069» READDt POKESO+N, Dt NEXTN 'rotina dm music* 

240 FORN-OT061 t READDt POKEAO+N. Dl NEXTNt RETURN 'p*r**atroi 



As linhas 30 e 60 definem as strings que irao conter a sub-roti- 
na de musica eos parametros musicais, respectivamente; a string 
da linha 30 content 70 pontos, que e igual ao numero de bytes 
da rotina de musica e a string da linha 60 tern um numero varia- 
vel de pontos, dependendo da quantidade de parametros musi- 
cais a serem passados d sub-rotina. 0 numero desses parametros 
pode ser no maximo de 255, que e o tamanho limite que pode as- 
sumir uma strmg. Para colocar os seus proprios parametros, refi- 
ra-se a figura 1 onde esta a Tabela de Escalas e encontre os va- 
lores corretos das notas musicais e de suas dura 9 des. Nao se es- 
que 9 a de mudar o valor final do loop da linha 240. Os parame- 
tros da musica a ser executada deverao ser criados aos pares, 
onde o primeiro parametro corresponde a dura 9 ao e o segundo 
ao valor da nota. Apos rodar o programa pela primeira vez, as 




strings das linhas 30 e 60 ja estarao “empacotadas” e voce po- 
dera entao eliminar as linhas 80 e de 1 20 em diante, regravan- 
do o programa. Sempre que voce executar o comando LPRINT 
a musica sera executada. Porem, se voce tiver uma impressora 
conectada ao seu micro, assegure-se de que a mesma esteja des- 
ligada ao executar o programa, pois a rotina reside no endere 90 
do ponto-de-entrada do driver de impressora (16422) poden- m 
do acontecer resultados inesperados se a mesma estiver ligada. M 

Formado em Administrapao de Empresas pela UDF , Heber Jorge da Sil- 
va trabalha atualmente na Telebrasilia, onde exerce atividades ligadasa 
programagao de microcomputadores. 
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VOCE QAHHOU DE PRE501TE 
0 5HOPPIK5 DO FUTURQ 



Pela primeira vez, o fantas- 
tico mundo da Informatica 
esta reunido num so lugar. 
0 Rio InfoShopping. 

Uma ideia inteliqente, 
num espago infeiramente 
voltado para essa realidade 
queconquistaacadadia, 
cada vez mais, o seu 
lugar na vidade 
todosnos. 



Um espago onde voce vai 
conhecer as novidades, os 
ultimos langamentos e os 
melhores produtos e servi- 
ces, na Aleph Sistemas e 
Metodos, Andraus Informa- 
tica, Ciencia Moderna 
Computagao, 
Compumix, 
Computer Shop- 
ping Moore, 



Racimec, R&T Informatica, 
Trade Informatica, Unitel e 
Videomatica. 

Alem delas,no Rio Info- 
Shopping voce tern dois 
conrortaveis auditorios para 
seminarios, convencoes e 
simposios, e o Tech-Room, 
onde os langamentos e as 
promogoes informaticas 
acontecem. 



I 






Abertode 
segunda a sexta, 
das9as21horas,eao5 
sabados, ate as 18 horas. 

Largo do Machado 




Computerware, Venha. 0 mundo da Infor- 
C.R.T., Data Rib- matica esta aberto Dara 
bon,RamengoV/i- voce, 
deo Club, "Mikros", Mo Largo do Machado, 

junto ao Metro. 

Com estaciona- 
mentoproprio. 

Mo Rio InfoShop- 
ping. A ultima gera- 
gao dos shopping 
centers. 















Editar, inserir e corrigir programas em linguagem de maquina, no 
seu ZX Spectrum, sao recursos deste Monitor Assembler. Explore-os. 



Monitor Assembler 
no TK 90X 

Divino Carlos R. Leitao 



O s usuarios de micros da linha 
Sinclair que sempre acompa- 
nharam MICRO SISTEMAS 
devem se lembrar do Monitor 
Assembler, publicado em MS n? 23, de 
Jose Carlos Niza. Foi com esse programa 
que muitos usuarios come^aram a des- 
vendar os misterios da linguagem de 
maquina e depois puderam usar, mais 
ainda, o potencial dos compativeis com 
o ZX81 atraves do Monitor Basic, de 
Renato Degiovani, e do conhecido MI- 
CRO BUG. 

Agora que jd existe no Brasil um 
equipamento compativel com o ZX Spec- 
trum, nada mais natural que MS volte 
suas aten9&es para essas maquinas, que 
reunem a conhecida simplicidade dos 
micros Sinclair e caracteristicas antes so 
encontradas em micros mais caros e fora 
do alcance dos nossos bolsos. 

O ideal seria poder brindar a voces 
com uma versao do MICRO BUG para 
essas maquinas - e ela ainda vai chegar 
mas enquanto isso, ninguem ird ficar 
de maos abanando, ja que o CPD de MS 
elaborou esta nova versao do Monitor 
Assembler para que voces possam carre- 
gar com mais facilidade em seu micro as 
rotinas em linguagem de maquina que, 
certamente, ja encontraram nos diversos 
livros publicados, para o ZX Spectrum, 
e tambem para servir como padrao para 
as rotinas que forem editadas em MS. 

COMO USAR 0 MONITOR 

O funcionamento do Monitor e bem 
simples e sua constru^ao e modular para 



que no futuro possam ser introduzidas 
novas rotinas. 

Nas linhas de 1000 a 1999 esta a par- 
te de apresenta^Io e distribubao do pro- 
grama. Se voce quiser acrescentar algum 
modulo, basta modificar a linha 1030 e 
depois fazer o desvio em qualquer espa- 
90 at£ a linha 1 1 20, podendo inclusive a 
mesma ser aumentada ate 1499. 

Os modos de operasao sao chamados 
pela inicial da sua fun9ao. Assim,o mo- 
do He para entrada/exame de numeros 
hexadecimais; o modo D para entrada/ 
exame de numeros decimais etc. Veja as 
explica96es a seguir: 

MODO H(2000 a 2499) 

Ao ser acionado, pergunta qual e o 
endere90 inicial. A partir da entrada do 
mesmo, voce podera entrar com um da- 
do hexadecimal ou um bloco de dados 
com ate oito elementos. Lembre-se que 
os numeros hexadecimais sao sempre 
constituidos de pelo menos um par de 
caracteres entre 0 e F de modo que o 
numero 2, por exemplo, tern que ser es- 
crito como 02. Se a entrada de dados es- 
tiver errada, o programa a recusara. 
Ap6s cada inser95o de dados, aparecerao 
na linha 21 da tela o endere90 e os da- 
dos digitados, com a soma dos seus by- 
tes & frente. Se for apenas um elemento, 
a soma pode ser considerada como con- 
verse do numero para o sistema deci- 
mal. 

Neste modo, voce pode ainda entrar 
com qualquer numero precedido de + 
ou -, sendo que neste caso o endere90 
sera incrementado ou decrementado 



do numero digitado; se for digitado 
apenas um dos sinais, o incremento sera 
de 1 ou -1 con forme o caso; para avan- 
9ar um numero do endere9o voce pode 
tambem digitar apenas ENTER. Qual- 
quer valor fora dos parametros fara com 
que reapare9a a pergunta “MODO?”, de 
onde voce podera chamar as outras roti- 
nas do programa. A letra M mostrara a 
memoria dispomvel e a letra E, sozinha, 
fara surgir novamente a pergunta “EN- 
DERE^O?” sem sair do modo H. 

MODO D(2500 a 2999) 

Este modo funciona de maneira se- 
melhante ao modo H, porem permite a 
inser9§o de apenas um elemento por 
vez, mostrando na tela o endere90, seu 
conteudo e ainda o carater correspon- 
dente ao seu conteudo, exceto se for 
um cardter de controle que nao pode ser 
mostrado no video. O conteudo do en- 
dere90 e apresentado nas formas deci- 
mal e hexadecimal, porem a entrada de 
dados so e permitida em decimal. Alem 
deste detalhe, valem para este modo as 
mesmas regras de entrada de dados do 
modo H, inclusive as de avan90 e retro- 
cesso dos endere90s. 

MODO S(3000 a 3499) 

Este modo arquiva todo o programa 
em fita, usando o comando SAVE. £ 
aconselhavel que voce fa9a varias grava- 
96es de cada parte dos programas que 
estiver digitando, para evitar a perda do 
trabalho, se houver algum problema du- 
rante a digita9ao. Rotinas acima do 
RAMTOP deverao ser salvas com o co- 
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A revolution^ tecnologia da int'orm^lica pode ser utilizada por todas as 
pessoas. HOT BIT £ o primeiro computador feilo sob medida para todas 
Ciit] * 1 i i pUTT as necess idades. Ele tern, programas para admin i$trar os 
nrV/VUVttTN I C seus neg 6 cios r contrdar tudo na sua casa e levar prazer 

O MICRO QUE RJNOONA pQSsibilidades nao param por af Uma 
PRATOTIOMI iwno capacidktedeexpanswgarantida, 

r w\r\ I ULAJ / V1U l NL/xA programas e sistemas operational em disco, 
impressora, modem e outros perifeicos fazem 0 HOT BIT creseere acompanhar 
a sua evo-lu0G, Dentro ou fora de casa, voc£ vai destobrir que existe enfim 
um micro para todos. E para sempre. 



^ OT BIT NA SUA b M PR E S A HOTBH £ comp&tivel com a tecnobgia 

que ajuda a controlar neg6cios no munch ini eim: MSX* 

Ajudancb na contabilidade, prpgrama^ao de vendas, estoque, relatdrios e 
projetos, reda^ao e tdptas de Cartas, s 6 para dar alguns exemplos. HOT BIT da 
mais resulrados com menos operagdes, gfa^as as exclusivas teclas Hoi Tocks r 
de fun^des program^veis, E o teclado d igualzinho ao da maquina de escrever; 
fa la bom portuguds, com todos os acentos. 



HOTBIT NA SUA CASA HOTBIT ajuda sua mutter a Controls r a despensa, 

o carddpio do m£s, a list a do supermercado, as contas a pagar, os juros 
da poupan^a, a agenda diiria. Ou entSo dS dicas sobre biorriimo, regime, 
receilas favorites. Tudo isso em image ns bem nftidas, no video de soa TV, 
em tb Cores incriveis. Incrfvel lamb^m £ a extensa rede de apoto (Ccmco h sua 
disposi£ao- Onde HOTBIT estiver, ele estar^ sempre bem acompanhado. 



HOTBIT NA VIDA DE SEUS FILHOS 




Nos estudos ou no lazer, HOTBIT tambem esti pronto para 
entrar na vida de seus filhos. Tomando tudo mais fScil, 
emocionanie e gostoso. 

Ele$ vJo aprender de$de a prdpria linguagem do micro, 
att ci^ncias, matemit ica, ffsica J qufmica e muito mais. 

Vao criar grificos e desenhos, Vao sentir tamb<§m 
toda a emofao dos jogos ^ sd acoplar Joysticks, 

Passe num nevencfedor HQTBIT e leve 0 seu 
para o escritOrio. Ou para casa. Ele funciona 
pra tudo, E pra todos. 
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PEQAS ORIGINAIS 

NUNCA 

PREGAM PEQAS 

No momenta em que for necessdria a expansao de seu AP II ou Tt . Unitron ou ainda a 
reposigao de algum dos componentes, veriftque cuidadosamente se as pegas sao originals, 

Fazendo isso voce ou sua empress estarao lucrando mais, com uma s4rie de vantagens . 

A primeira deias esta nagarantia que a fabrics oferece para conjuntos formados com 
acessdrios originais Unitron. Outra vantagem esta na alta qualidade de uma pega ou acessdrio 
original; voce ou sua empress contam com a assistencia teenies sempre presente nos 
momentos necessArios, alem disso a expansao do seu Unitron $er£ sempre assistida 

por tecnicos especializados. 

Cuide do seu patrimonio. A final pegas originais nunca pregam pegas. 




DU: 

interface cantroiadora para 
does unidades de disco 
ffaxwei de 5 1/4* \ 




Graph*: 

interface paralefa para im- 
pressora com fam&es gr&fi- 
cas e comandos pr&pnos pa- 
ra as improssoras nBCionass. 




+ l6K f + 32K r 
+ 64K € + T2&K: 

Expansdes de Memdrta RAM 
cam a possibilkiade de $*mu- 
fagie de "disk-drive" de atta 
vetocidade (psaudo-disco). 



Z80: 

M&dufo com micfoprocessa - 
dorZ-SOadtcional, permit indo 
utrtteagSo deSistema Opera - 
donal CP/M. 




90 cotunas: 

Mdduk) para mudan^a dopa- 
dr£o de video para 30 cotu- 
nas x 24 iinfoss. 




CAIXA POSTAL 14127 - SAO PAULO - SP 
TELEX (Oil) 32003 UEIC BR 



Outras expansdes Unitron: Interface para comunicagdes, RS-232C - Memoria Buffer adiciona! 

para impressora - unidades de disco SLIM de 5-Wou Si'impressoras de 80 a 125 CPS, 
mddulo de cores PAL-M ou moduiador de RF para conexao a TV, - interface GP-IB para controie 
de instrumentagao, - cartao com memdrias EPROM para insergao de "programas residentes". 



MONITOR ASSEMBLER NO TK90X 



mando dircto SAVE “NOME" CODE, 
pois nao sao salvas pelo modo S. Veja 
no final do artigo mais esclarecimentos 
a respeito. 

MODO R(3500 a 3999) 

Este modo e o mais simpatico e um 
grande auxiliar nos programas que ne- 
cessitam de grandesquantidadesde bytes 
em linha REM. Basta dar o numero da 
linha, seu tamanho e ate escolher o cara- 
ter da mesma;o resto uma pequena roti- 
na em linguagcm de maquina ira fazer 
sozinha. 

Para aqueles que gostam de se apro- 
fundar na logiea dos programas aqui vai 
uma explica^'ao a respeito da rotina. Ela 
esta toda contida na linha 3500 e cada 
elemento do DATA corresponde a um 
byte da rotina. que usa ao todo 89 
bytes. 

A rotina e const rui'da sem endere(?os 
absolutos, podendo ser colocada em 
qualquer parte da RAM. Neste progra- 
ma. toi escolhida a area reservada ao 
Buffer da impressora. Ela usa tambem 
os endere^os 23296/97, para ler o nu- 
mero da linha; 23298/99. para ler o ta- 
manho da linha; e 23670, para ler o co- 
digo do carater. Se voce desejar usa-la 
em outros programas, basta coloca-la em 
qualquer endere^o e preencher estes 
tres endere^os (sendo os dois primeiros 
com 16 bits e o terceiro com 8 bits) 
com os valorcs para que a mesma fun- 
cione. 

MODO B( Retorno ao BASIC) 

Este modo usa apenas a linha 1 100 
para causar um parada no monitor sem 
ter que usar a tecla BREAK. 

MODO M( Memoria dispom'vel) 

Tambem um modo de apoio que usa 
apenas duas linhas (1080 e 1090). Ao 
ser acionado, mostra a quant idadc de 
memoria dispom'vel na RAM. Pode ser 
chamado diretamente tambem nos mo* 
dos H e D 

MODO A( 4000 a 4499 ) 

Tambem um modo importante do 
programa, permite que se apague um 



bloco de linhas, dando o numero da pri- 
meira e da ultima que se deseja apagar. 

Funciona da mesma forma que o mo- 
do R. Sao 46 bytes que podem ser colo- 
cados em qualquer parte da RAM. A 
exemplo do modo R, usa tambem o 
mesmo espa^o no Buffer da impressora, 
sendo que e aconselhavel estar com a 
impressora desligada ao utilizar estes 
dois modos. Nao e preciso desconecta- 
la do micro, basta desligar a fonte de 
energia da impressora ou apenas coloca- 
la em OFF, se a mesma tiver um inter- 
ruptor para isto. A razao de se usar este 
espa^o e que desta forma o programa 
roda sem modifica^des em micros de 16 
ou 48 Kb, nao havendo necessidade de 
usar espa^os da RAM que taJvez sejam 
necessarios ao programa que voce ira 
digitar. 

Esta rotina tambem usa os endere^os 
23296/97 e 23298/99 para ler respect i 
vamente os numeros da primeira linha a 
apagar e o da ultima; estes endere^os, as- 
sim como no modo R, sao fixos e devem 
ser preenchidos antes de ser acionada a 
rotina. No programa isto sera feito au- 
tomaticamente. 

Se voce quiser deletar o Monitor, 
devera faze-lo com um comando direto 
RAND USR 23300 depois que os para- 
metros forem preenchidos; tudo estara 
bem explicado no proprio programa. 
Lembre-se que so devera faze-lo depois 
que tiver certeza que o programa que 
estiver digitando nao contem nenhum 
erro. 

ESCLARECIMENTOS FINAIS 

Apos digitar e gravar este programa, 
entre com o comando RUN 1000 para 
acionar o Monitor; se houver qualquer 
problema durante a digita^ao, apenas 
repita este comando e podera iniciar 
onde parou. Quando tiver que digitar 
qualquer rotina no topo da memoria, 
nao esque^a de reservar o espa^o neces- 
sario. Nos micros compativeis com o ZX 
Spectrum basta dar o comando direto 
CLEAR XXXX onde XXXX e o valor 
para o qual voce deseja baixar o topo da 



RAM. Esta area esta livre de apagamen- 
to por NEW, mas tambem n2o sera gra- 
vada se voce usar o comando S do Mo- 
nitor. Para guarda-la em fita, use o co- 
mando direto SAVE “nome do progra- 
ma" CODE XXXX, YYYY onde XXXX 
sera o enderetpo do primeiro byte a sal- 
var e YYYY a quantidade de bytes que 
deverao ser salvos apos XXXX. Para re- 
cuperar depois, basta usar o comando 
direto LOAD ” ” CODE. Nao ha neces- 
sidade de especificar os parametros, pois 
o micro sabera quando ler o Header 
(aquele barulhinho antes das grava^oes). 

Para testar as rotinas que estiver digi- 
tando, use o comando direto RAND 
USR XXXX onde XXXX sera o endere- 
90 de chamada da rotina, mas por uma 
questao de seguran 9 a, grave sempre o 
programa antes de fazer qualquer teste. 

O Monitor Assembler foi desenvolvi- 
do em um micro TK90X, por isso utiliza 
o comando SOUND presente na linha 
1550; este comando deve ser substit u 1 '- 
do no ZX Spectrum e Timex 2069 pelo 
comando BEEP que fara o mesmo efei- 
to. Na linha 1028, voce encontrara tam- 
bem o comando UDG 0. seguido de dois 
POKEs; elimine esta linha se o seu micro 
n5o for um TK90X, pois este e o co- 
mando correspondente aos caracteres 
acentuados da lingua portuguesa e nao 
existe nos outros compativeis. 

Agora voce ja pode digitar com mais 
facilidade os programas em linguagem 
de maquina no seu compativel com o 
ZX Spectrum. 

Para maiores esclarecimentos sobre 
este programa, leia a materia de MS n? 
23, na pagina 10, e tambem o excelente 
livro As Melhores Rotinas para o ZX 
Spectrum de J. Hardmar e A. Hewson, 
publicado pela editora Verbo de Infor- 
matica, e do qual foram extrai'das as ro- 
tinas dos modos R e A. 



D 1 vi no Carlos R. Leitao d formado em Dese- 
rt ho Mecanico pelo Senai. E programador de 
microcomputadores ha trSs a nos, tendo inclu- 
sive alguns programas comercializados pela Ci- 
berne Software. Atualmente, trabalha no CPD 
da revista MICRO S/STEM AS, onde desenvol- 
ve jogos e aplicativos em equipamentos que 
utilizam o microprocessador ZSO. 



VEM At, 
A TAO AGUARDADA 
EDICAO DE JOGOS 

DE 

MICRO SISTEMAS! 



Este ano, MS esta ainda melhor. Alem dos 
programas traz dois artigos especiais: A Programacao de 
Jogos, que descreve rotinas basicas e recursos 
adicionais para incrementar seus jogos e um Editor de 
Adventures, para que voce possa desenvolver jogos de 
adventure personalizado. 

Sem talar em: 

► Microgolf • Polaris • Rally • Fuga Cosmica • Olhadinha 
Roleta, e muito mais! 



NAO PERCA! 
JOGUE-SE 
DE CABEQA 
NESTA AVENTURA, 
E BOM 

DIVERTIMENTO. 



MONITOR ASSEMBLER NO TK90X 

MENU 



t#00 CLb : PRINT '"«*#» MICRO ED 
I TOR ASSEMBLER ***** ZX SPECTRUM 
/TIMEX 2068/TK90X ************** 
##»«#***»*#*«•******" 

1010 PRINT '" MODOS DE OPFRACAO 

1012 PRINT 'TAB 2; BRIGHT 1; FLA 
SH 1;"H"; BRIGHT 0; FLASH 0;" - 
INSERE DADOS HEXADEC1 MATS'' 

1014 PRINT 'TAB 2? BRIGHT 1; FLA 
SH i;"D"; BRIGHT 0; FLASH 0;" - 
INSERE DADOS DECIMA1S" 

1016 PRINT 'TAB 2? BRIGHT 1; FLA 
SH 1 ; "S" : BRIGHT 0r FLASH 0;" - 
SALOA EM FITA" 

1018 PRINT 'TAB 2; BRIGHT 1; FLA 
SH 1 ; "R" ; BRIGHT 0; FLASH 0;" - 
CRIA LINHA REM" 

1020 PRINT 'TAB 2; BRIGHT 1; FLA 
SH 1 ; "M" ; BRIGHT 0; FLASH 0;" - 
MOSTRA MEMORIA DISPONIVEL" 

1022 PRINT 'TAB 2; BRIGHT 1; FLA 
SH 1 ; "B" ; BRIGHT 0; FLASH 0;" - 
RETORNA AO BASIC" 

1024 PRINT 'TAB 2; BRIGHT 1; FLA 
SH 1 ; "A" ; BRIGHT 0; FLASH 0;" - 
APAGA BLOCOS DE LINHAS" 

1026 LET SOM=1550= POKE 23658,8= 
LET SC = 1500 = LET X = 1 
1028 UDG 0= POKE 65448,28= POKE 
65449,0 

1030 INPUT "MODO ? ";MS> = IF LEN 
M%>1 OR <M4<>"A" AND MK >"M" AND 
MK >"B" AND M%< >"R" AND M%< >"S" 
AND M%< >"D" AND MK>"H"> THEN G 
OTO 1030 

1040 IF M%="H" THEN GOTO 2000 
1050 IF M4="D" THEN GOTO 2500 
10#0 IF M*="S" THEN GOTO 3000 
1070 IF M*="R" THEN GOTO 3500 
1080 IF MK >"M" THEN GOTO 1100 
1090 LET SP=PEEK 23730+256*PEEK 
23731= LET EL=PEEK 23653+256*PEE 
K 23654= LET X=2= GOSUB SC= PR1N 
T AT 21,0; "MEMOR I A DISPONIOEL = 

" ;SP-EL ; " bytes",: LET X=2= GOSU 
B SC 

1100 IF M*="B" THEN STOP 
1110 IF MS="A" THEN GOTO 4000 
1120 GOTO 1030 
1500 IF X<1 THEN RETURN 
1510 FOR F=1 TO X= POKE 23692,3= 
PRINT AT 21,31;" "?= NEXT F: R 

ETURN 

1550 LET X=RND = FOR F = i TO 20= S 
OUND . 025 , X = NEXT F= RETURN 



MODO H 

2000> INPUT "ENDERECO ? ";E 
2010 LEl D %="" = LET X=1 
2020 LET D=PEEK E= LET A= 1 NT (D/ 
16)= LET B=D- INT <D/16>*16= PRIN 
T AT 21,0;" " ; AT 21,<5-LEN S 

TR* E ) ; E ; " - ",,AT 21,8;CHR4» < A+ 
(48+7«<A+48>57>> >|CHR* <B+(48+7* 

( 48 + B >5^ ) > > 

2030 IF DS = "" THEN INPUT "DADOS 
EM HEX ";D* = IF LEN D4>16 THEN G 
OTO 2070 

2035 IF Di»="M" THEN GOTO 1085 
2040 IF D < b="E" AND LEN D4 = l THEN 
GOTO 2000 

2045 IF D*="" THEN LET E = E + t = GO 
TO 2160 

2050 IF D% ( 1 )="- " OR D4 < 1 ) - ♦ T 
HEN GOSUB 2650= LEI E=E*X= GOTO 
2010 

2060 IF LEN DS/2= T NT (LEN D*/2> 
THEN GOTO 2080 

2070 LET D%="'= PRINT W0;'ENIRAD 
A I NO AL IDA" = GOSUB SOM= GOTO 203 

0 

2080 FOR F= 1 TO LLN D* = II DKI ' 
<"0" OR (DKF) >"9" AND DKFX"A" 
) OR D% ( F ) > "F" THEN GOTO 1030 
2090 NEXT F = LET S=0: LET *=LEN 
D%/2 

2100 PRINT AT 21 , 8 ; D1» ; 
za 0 M I A * i ODI D*< i)*i 1+11 

2* (CODE DK 1 ) >57 ) ) = LET B~‘ ODE D 
<M 2) -(48+ 7 a (CODE DK2>>5/)> 



Monitor Assembler 



2120 POKE E , A+B = LET S=S-*A*B = LE 
T E=E M = LET DS=DK3 TO >= IF D* 

< >"" 1 HEN GO 10 2110 

2130 PRINT " = ";S: IF X=1 THEN 

GOTO 2160 

2140 PRINT W0: 'CONFIRMS COM "; F 
LASH 1; BRIGHT 1;" ENTER 
2150 PAUSE 0= IF CODL INKEYKH3 
THFN LFT D4=""= GOTO 2030 
2160 LET X»ts GOSUB SC= GOTO 202 
0 

MODO D 

2500 > INPU I "ENDERECO 7 ";E 
2520 LET D=PEEK E= LFT A=I NT (D/ 
16)= LET B=D-INT <D/16)*16= PRIN 
T AT 21,0;" ";AT 21 , (5-LLN S 

TRS E ) ; E ; " - ",,AT 21,<11-LEN ST 
R* D ) ; D ; T AB 13;CHR‘R <A+<48+7*(A+ 
48)57) )) ;CHR* < B ♦ ( 48+7 *( 48 + B >57 ) 
>>;" H" ; = IF D>32 THEN PRINT TAB 
20;CHR* D 

2530 INPUT "DADO -EM DECIMAL ";DS 
: IF DS="" THEN LET E=E+1= GOTO 
2610 „ „ „ 
2540 IF DK 1 OR DKi> = + T 
HEN GOSUB 2650= LET E=E+X= LET X 
= 1 = GOTO 2630 

2550 IF DK1>="E" THEN GOTO 2500 
2560 FOR F=1 TO LEN DK IF CODE 
DK F ) < 48 OR CODE DKF)>57 THEN G 
OTO 1 030 *60* ( CODE D KF> SS 77> 

2570 NEXT F = GO 1 0 2590 

2580 IF UAL DK0 THEN LET E=E+VA 

L DK GOTO 2620 

2590 IF UAL DS >255 THEN LET E=E + 
9AL DK GOTO 2620 
•?600 POKE E , UAL DK LE T E=E + i 
2610 LEI D=PEEK (E-i>= LET A= INT 
( D/16 ) = LET B=D-INT <D/16>*16= 

3 R INT AT 21,8;" ";AT 21,(11~LEN 
STR% D ) ; D ; TAB 13;CHR* (A+(48+7» 
(A+48>57> > ) ;CHR% ( B + ( 48 + 7* < 48 + B > 
57)));" H" ; = IF D>32 THFN PRINT 
TAB 20 ; CHR4 D 
2620 LET X=i 

2630 GOSUB SC = GOTO 2520 
2650 LET X = 0 = IF LEN DK1 THEN L 
ET X = < DK" + " ) - < DK"-" > = RETURN 
2660 FOR F =2 TO LEN DK IF CODE 
DK F ) < 48 OR CODE DKF) >57 THEN R 
ETURN 

2670 NEXT F = LEI X = UAL DK RETUR 
N 

MODO S 

3000 >CLS = PRINT "Rotina de $rav 
acao,"."s i ga a sequencia aba.*6 

3010 PRINT '"1. Coloque uma fita 

virgem no seu gravador e a 

note a sua posicao;" 

3020 PRINT '"2. Verifique sc os 

cabos est o conect ados ." 

3030 INPUT "Nome do programs ? ( 
max 10 CHR*>";N*= IF N*="" OR LE 
N Nii >10 THEN GOTO 3030 
3040 SAGE Ni LINE 1000= GOTO 100 
0 

MODO R 

3500 >DAT A 042,000,091,124,181,20 
0,017,016, 039 ,167, 237 , 082 , 208 , 02 
5 , 229 , 205 .110, 025 , 032 , 002 , 225 , 20 

1 .237 .075. 002.091 .197. 197.062.01 
3,205,136,015,035, 193,197,120. 17 

7.040.01 1 .058. 118.092.205.136.01 
5,035, 193,011 ,024,240,193.062,23 

4.205.136.015.035.193.003.003.12 
0, 197,205. 136,015, 193,035,121,20 

5. 136.015.075. 193.121 .197.205.13 
6,015,193,035, 120,195,136,015 
3505 LET D=0 

3510 CLS = PRINT "*#** CRIAR 
LINHA REM ***»" 

3520 INPUT "NUMERO DA LINHA ? "; 
N= IF N<1 OR N >9999 THEN GOTO 35 
20 



3525 PRINT "'NUMERO DA LINHA = 

;N 

3530 INPUT "1AMANH0 DA LINHA ? 

;T: IF (PEEK 23730+256»PEEK 2373 

1 ) -.(PEEK 23653+256 #PEEK 23654 )< ( 

T *6 ) THEN PRINT M0;" ESPA 0 INSU 
FICIENTE NA MEMORIA "* GOSUB SOM 
: GOTO 3530 

3535 PRINT '"TAMANHO DA LINHA= " 

; T 

3540 INPUT "CHR* A SER IJSADO 
;C%: IF LEN C%>1 THEN GOTO 3540 
3545 PRINT '"CHR4 DA LINHA =- 
;C% 

3550 PRINT M0 ; "CONF IRME OS DADOS 
BRIGHT 1; FLASH 1;"S"; FLASH 
0; BRIGHT 0;"IM "; BRIGHT 1; F 

LASH 1 ; "N" ; BRIGHT 0; FLASH 0?" 

0 " 

3560 IF INKE Y%="N" THEN GOTO 35x 
0 

3570 IF INKEY%="S" THEN GOTO 359 
0 

3580 GOTO 3560 

3590 CLS = PRINT AT 10,10; BRIGH 
T 1; FLASH 1?" AGUARDE "* IF D T 
HEN GOTO 3610 

3600 RESTORE 3500= FOR F=23300 T 
0 23384= READ X= POKE F,X= NEXT 
F = LET D= 1 

3610 RAND N = POKE 23296, PEEK 23o 

70= POKE 23297, PEEK 23671 

3620 RAND T= POKE 23298. PEEK 236 

70= POKE 23299, PEEK 23671 

3630 RAND CODE CK LET X=USR 233 

00= IF X=0 THEN CLS = PRINT M0;" 

OK. LINHA CONSTRUIDA": GOSUB SOM 

s GOSUB SOM= GOTO 1000 

3640 CLS = PRINT M0;"A LINHA JA 

EXISTIA NO PROGRAMA, TENTE COM 0 

UTRO NUMERO "= GOSUB SOM: GOSU 

B SOM = GOTO 3510 

MODO A 

4000 >DAT A 042,000.091,237,091,00 

2.091.124.181 .200. 122. 179.200.21 
3 , 205 ,110, 025 , 227 , 035 , 205 ,110,02 
5,209, 167,237.082,200,216,235,12 

2.179.200.213.229.205.024.016.22 
5,209,027,024,243 

4010 CLS = LET D=o= PRINT ' »** D 
ELETAR BLOCOS DE LINHAS ***" 

4020 PRINT W0 ; TAB 3;"QUER DELETA 
R 0 MONITOR ?" , T AB 7; BRIGHT 4; 
FLASH 1;"S"; FLASH 0; BRIGHT >;" 
Ih ol '; BRIGHT 1; FLASH 
N"; BRIGHT 0; FLASH 0;"AO " 

4030 IF I NKE Y4*"S" THEN GOTO 410 

e 

4040 IF JNKEYK >"N" THEN GOl 0 40 
30 

4050 INPUT "NUMERO DA PRIMEINA _ 
INHA ? "» I s IF I < 1 THEN GOTO 405 

0 

4060 INPUT "NUMERO DA ULTIMA LIN 
HA ? " ; U = IF U>999 THEN PRINT «0 
; "ATENCAO , 0 MONITOR SERA AFETAD 
0!"= GOSUB SOM 

4070 PRINT '"Apagar linbas entre 
: " , I ; " e " ; U 

4080 PRINT M0 : "Conf i r me parametr 
os con. "; BRIGHT 1; FLASH 1;" EN 
TER "= PAUSE 0= IF CODE INKEY%<> 
13 THEN GOTO 4010 

4090 RAND 1= POKE 23296. PEEK 236 

70= POKE 23298, PEEK 23671 

4092 RAND U= POKE 23298, PEEK 236 

70= POKE 23299, PEEK 23671 

4094 CLS = PRINT AT 10.10; BRIGH 

T 1; FLASH If" AGUARDF " 

4096 RESTORE 4000= FOR F=23300 T 
0 23341: READ A= POKE F,A= NEXT 
F = IF D THEN GOTO 4150 
4098 RAND USR 23300= GOTO 1000 
4100 LET 1=1000= LET U=5000= LET 
D=1 = GOTO 4090 

1110 RESTORE 4000= FOR F=23296 T 
0 23341= READ A= POKE F,A= NEXT 
F 

4150 CLS = PRINT AT 10,0;'Para a 
pagar o MONITOR, digite nomodo d 
ireto = "; BRIGHT 1; FLASH l;" R 
AND USR 23300 "= STOP 
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ARTEIRA 




O processo decis6rio na empresa nem sempre 6 tao 
ttcil. 

Quando comprar e quando vender? 

Qual o prego de venda? E o de compra? 

Onde investir e quanto? 

O que fazer se a inflagao disparar? E se diminuir? 
Como melhorar os resultados? 

Estas sao decisoes que influenciarao diretamente o 
sucesso da empresa, no mundo altamente 
competitivo de hoje. 

Tomar a decisao certa, na hora certa, envoi ve bem 
mais do que digerir quantidades enormes de numeros 
ou pilhas de relatdrios. 



Depende do acesso r£pido ao fluxo di&rio de dados da 
empresa, transformadas em informag6es suscintas e 
pertinentes. 

Envolve a conversao destes dados em modelos 
quantified veis para andlise precisa e correta. 

Tome uma decisao jd! 



Conhega o IFPS/Personal 



O mais avangado sistema de apoio a decisoes para 
micro computadores disponfvel no mercado brasileiro 



Solicite uma demonstragao a DSS INFORMATICA 



DSS SolugOes inteligentes 



DSS INFORMATICA S/C LTDA 



Rua Visconde de lnhauma,50-5? And. Cj. 505 
20.091 . Centro — Rio de Janeiro — RJ 
Tel.: (021) 233-0673 



Rua Funchal, 203 — 4? Andar-Cj. 41 
04551 — Vila Olimpia — Sdo Paulo — SP 
Tel.: (01 1)814-3610 
Telex.: (Oil) 24034 -DSSI 



Representante exclusivo para o Brasil da EXECUCOM Systems Corporation. 




Luciano Ni/o de Andrade 



A ultima palavra foi 
do micro 



P ara avaliar qulo forte e o jogo do Elite A/S 44 C”, foi 
utilizado o livro do mestre ingles Leonard Barden 
How Good is Your Chess , partida N9 2, J. T. Mangini 
vs A. Kotov, Mar del Plata, 1957. Para que o leitor possa julgar 
a qualidade do jogo, a partida esta reproduzida a seguir com as 
jogadas do Mestre; os pontos ganhos, quando a jogada do mi- 
cro coincidiu com a do Mestre; os que deixou de ganhar por 
n5o acertar, e os tempos gastos. 



MANGINI x KOTOV (Micro) 
Mar Del Plata, 1957 


Jog. 


B 


P 


Pts. G. 


Pts. P. 


Jog. do 


Tempos 












Micro 




1 


P4R 


P4BD 






_ 


_ 


2 


C3BR 


P3D 


- 


- 


- 


- 


3 


P4D 


PxP 


- 


- 


- 


- 


4 


CxP 


C3BR 


- 


- 


- 


- 


5 


B3D 


C3B 


- 


- 


- 


- 


6 


P3BD 


P4R 


3 


- 


- 


7m 40s 


7 


C2B 


P4D 


0 


2 


B2R 


7m 28s 


8 


PxP 


CxP 


0 


1 


DxP 


0m 4s 


9 


0-0 


B3R 


1 


- 


- 


7m 20s 


10 


D3B 


B3D 


0 


1 


C3B 


7m 5s 


11 


C3R 


CxC 


0 


2 


C5B 


6m 32s 


12 


BxC 


0-0 


0 


1 


D2B 


3m 11s 


13 


C2D 


P4B 


3 


- 


- 


3m 13s 


14 


B4BD 


D2R 


0 


2 


Bxfi 


3m 14s 


15 


BxB+ 


DxB 


1 


- 


- 


lm 40s 


16 


P4CD 


P5K 


0 


3 


P5B 


3m 30s 


17 


D2R 


D4R 


0 


3 


P5B 


3m 33s 


18 


D4B+ 


R1T 


0 


1 


T2B 


3m 35s 


19 


P3C 


TD1B 


0 


2 


D3B 


3m 47s 


20 


TR1D 


D3B 


0 


4 


D2R 


4m 33s 


21 


D3C 


B4R 


2 


- 


- 


3m 32s 


22 


C4B 


P5B 


2 


2 


BxP 


3m 31s 


23 


B5B 


P6R 


1 


4 


BxP 


3m 35s 


24 


BxT 


PxP+ 


3 


- 


- 


3m 37s 


25 


R2C 


TxB 


2 


- 


- 


3m 16s 


26 


T3D 


PxP 


2 


- 


- 


3m 16s 


27 


C2D 


PxP 


1 


- 


- 


3m 38s 


28 


C1B 


D3C+ 


2 


— 


— 


7m 18s 








23 


28 


lh 38m 30s 




Posi^ao final 

Barden escreveu: “as brancas 
abandonaram porque, depois de 
29-T3C BxT; 30-CxB P8B =D+; 
31-TxD TxT; 32-RxT DxC, a par- 
tida esta decidida." 

O Elite AS nao pensa assim. 
Ele indicou uma variante mais in- 
cisiva: 29-T3C D5R + !. Esta jo- 
gada revela como foi superficial 
a analise do mestre ingles: 30-RxP 
T3BI. Com mate indefensavel a 
vista. Se 30-R3T P8T =D+, e mas- 
sacrante. 



Polugaievsky x Hort 
Int. de Manilha, 1976 




As brancas jogaram 1-D7D(?), 
um erro colossal. Como podcm as 
pretas castigar as brancas: 



As brancas jogam e ganham. 
- 2t 3rl, pb3ppp, 8, 5D2, 8, lPlcd 
CPI, P3P2P, 4TB1R. 



tuercuop 

-UBqB seouBjq se a iaa81 IZH'Z 

:i+ai8i (i) <ua-i =ov5mos 

O Elite A/S. “C“ no Nivel 5 
gastou 3m 39s e, no Nivel 1, so- 
mente 10s! 



' UJBJBUOpUBqB SBOUKjq 

sb a ‘+a *a .Tza-e ‘o*a 

3xj-£:axg il+ixa-i :ovimOS 

O Elite A/S “2“ gastou 40m 
30s para achar a solu^ao, e o Eli- 
te A/S, Nivel 5. 3m 4s. 



Enxadrista experiente, Luciano NHo de Andrade Ja escreveu para os jor- 
nais "Correio da Manha ", " Data News ", e " Ultima Hora" e para a revis- 
ta "Fatos & Fotos ". Luciano 6 Economista, trabalhando no Minister io 
da Fazenda , no Rio de Janeiro. As opinioes e comentirios de Luciano 
Nilo de Andrade , bem como as ultimas novidades do Xadrez jogado por 
computadores, estarao sempre presen tes em MICRO S/STEMAS. 
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ENERGIA DE 
EMERGENCE PARA 
MICR0C0MPUTAD0RES 




GERATRON sempre foi a 
solupao ideal e economica para 
alimentapao de emergencia de 
microcomputadores da linha 
Apple e TRS-80. 

Agora voce tern disponivel o 
GERATRON PC 500. Com 
potencia de 500VA nominal e 
1 500VA de pico e dotado de 
chave de transference estatica 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compativeis com 
IBM-PC, na configurapao mais 
completa, durante varias horas 
apos a falta de rede eletrica. 

Mas se voce precisa de mais de 
500VA, a GUARDIAN tambem 
dispoe do modelo 750. 



GERATRON e marca 
registrada da GUARDIAN. 

EQUIPAMENTOS ELETRONICOS LTDA. 

Rua Dr Gamier. 579 - Rocha 
CEP 20971 Rio de Janeiro. RJ 
Tels Geral (021)261-6458 
Vendas (021)201-0195 
Telex (021)34016 




GUARDIAN 

ENERGIA A TODA PROVA 






Agora, voce podera digitar programas em linguagem de maquina 
no seu micro da linha Apple, utilizando este mini-editor Assembler. 



Mini-Assembler 
no Apple 

Evandro Mascarenhas de Oliveira 



O Mini -Assembler e um programa editor que permite 
trabalhar com a linguagem de maquina nos micros 
da linha Apple. Ele esta gravado na ROM do BASIC 
Inteiro (Integer BASIC), porem n2o esta disponivel 
no interpretador Applesoft. 

Diferencia-se dos Editores Assembler plenos por n2o usar 
rotulos (labels) ou linhas de coment£rios tipo REM, entretan- 
to, pode-se digitar as instru^Oes pelos seus mnemonicos, ao 
contrario da programa^ em codigo de maquina, que e bem 
trabalhosa, exigindo mais aten^ao do programador. 

Para ser usado nos micros com o Applesoft, e necessario 
te-lo disponivel na memoria. Uma forma de se conseguir isso 
e usar o programa INTBASIC * , encontrado nos discos-mestres 
do DOS 3.3, extraindo-se dele a parte referente ao Mini- 
Assembler. 

Para se atingir este objetivo, observe as seguintes instru^Oes: 
1 - Carregar o programa INTBASIC*, que ocupa 50 setores 
(n3o e o INTBASIC em disco com 22 setores), atraves do co- 
mando: BLOAD INTBASIC*, AS 1003 (o Mini-Assembler 

inicia neste endere^o). 

2- Executar o seguinte programa em BASIC, cuja fun^o 
e retirar o Mini-Assembler do INTBASIC* e coloca-lo no en- 
dere^o $3500: 

10 HOME 
20 P * 147 
30 B * 13568 

40 POKE B , 76 : POKE 1 , 149; POKE B*2,P 
50 FOR K= 1 TO 7 
60 READ A 

70 C - PEEK (B*A) «■ 3 
80 POKE (B-A).C 
90 C » PEEK ( B+A* 1 ) ♦ P -245 
100 POKE ( B* A ♦ 1 1,0 
1 10 NEXT 

120 DATA 57,93, 193,22 3,233, 309, 321 
130 END 

3- Realocar o programa para o endere^o $9300, proximo 
ao inicio do DOS($9600), atraves de: 

CALL -151 < RETURN > 

*9300 < 3500 . 37F7M < RETURN > 



4- Finalmente, salva-lo com: 

BSAVE MINI-ASSEMBLER, A$9300, L760 < RETURN > 

0 programa assim gravado no disco ocupara 760 bytes, indo 
do endere^o $9300 ate o endere 90 $95F8. 

5- Para usa-lo, entrar com: 

BRUN MINI ASSEMBLER < RETURN > 

que, ao ser executado, colocara o sinal !, indicativo da sua exis- 
tence, podendo, ent£o, ser iniciada a digita^So do programa 
em linguagem de maquina. 

COMAN DOS DO MINIASSEMBLER 

1 — Se voce estiver no modo monitor (sinal * ) e desejar en- 
trar no Mini -Assembler, digite: 

*9300G < RETURN > 

Feito isso, aparecera o simbolo indicador do Mini- Assem- 
bler ( !), seguido do cursor. 

2- Para sair do Mini -Assembler e retomar ao monitor, 
digite: 

!$FF69G< RETURN > 

3- Para retornar ao BASIC, aperte < RESET > 

4- Para digitar o programa, entre com o valor do endere^o 
inicial, sem o sinal $ , seguido de : e a instru 9 jfo em Assembler: 

! 300:JSR FC58 < RETURN > 

O sistema colocara o endere^o, os cddigos de miquina, a 
instru^^o e o operando, se houver: 

0300- 20 58 FC JSR SFC58 




Demonstracao do Mini-Assembler 



a LOAD 


MINI- ASSEMBLER 




C*rr«g* o programa Mini-Assembler e 


030E- 


00 


BRK 




partir do enderego S3 10 


CALL- 


151 










ontra no Monitor 


030F- 


00 


BRK 




















0)10- 


20 58 FC 


JSR 


SFC58 




•«»300C 












Executa o Min 1 - Assembler 


0313- 


20 D8 F 3 


JSR 


SF3D8 


















0316- 


A 9 AA 


LDA 


•SAA 


















0)18- 


85 1C 


STA 


$1C 




1300s 


JSR FC58 








031A- 


20 F6 F) 


JSR 


SF3F6 


















031D- 


60 


RTS 






0)00- 


20 


58 


FC 


JSR 


SPCS8 


Diqit’.acao do programa: 


031 E- 


00 


BRK 






1 JSR 


F 3 Do 












031F- 


00 


BRK 




















0320- 


00 


BRK 






0301- 


20 


□8 


FI 


JSR 


5F3D8 


Obaervar o espago entre o ! e o 


0321- 


00 


BRK 






1 LDA 


• AA 










mnemomco a partir da seqonda Ina- 


0322- 


00 


BRK 


















truqao (JSR F3D8) 


0323- 


00 


BRK 






0)06- 


A9 


AA 




LDA 


• SAA 














! STA 


1C 












1 $ 320 


: 20 40 60 AA ip 32 




Oigitagao de valores numericos de 
























tabelas a partir do enderego 5)20 


0309- 


8S 


»C 




STA 


SIC 














1 JSR 


FWI 












! S 300L 








0 30A- 


20 


F6 


F) 


JSR 


SF3P6 




0300- 


20 58 PC 


JSR 


SFC58 




1 RTS 














0)03- 


20 08 F3 


JSR 


SF3D8 


















0)06- 


A9 AA 


LDA 


• SAA 




0300- 


60 






RTS 






0308- 


95 1C 


STA 


SIC 


Listagem apos a dlqitagao dos valores 
















030A- 


20 F6 F) 


JSR 


SP3P6 


numer icos . 


1S300L 














030D- 


60 


RTS 




Observa-los a partir de enderego $0320 
















030E- 


00 


BRK 






0300- 


20 


58 


FC 


JSR 


SFC58 




030F- 


00 


BRK 






0303- 


20 


D8 


F 3 


JSR 


SF3D8 




0310- 


20 58 FC 


JSR 


SPC50 




0306- 


A9 


AA 




LDA 


• SAA 




0313- 


20 08 F) 


JSR 


SF3D8 




0)09- 


85 


1C 




STA 


sic 




0316- 


A9 AA 


LDA 


• SAA 




030A- 


20 


F6 


P3 


JSR 


SF3F6 




0318- 


85 1C 


STA 


$1C 




0 30D- 


60 






RTS 






031A- 


20 F6 F3 


JSR 


SF3F6 




0 30E- 


00 






BRK 




Listagem das vinte primeiras 


031D- 


60 


RTS 






030F- 


00 






BRF 




linhas de instrugao 


031E- 


00 


BRK 






0310- 


00 






BRK 




03ir- 


00 


BRK 






031 1- 


00 






BRK 






0)20- 


20 40 60 


JSR 


$6040 




03 IJ- 


00 






BRK 






0323- 


AA 


TAX 






03 1 3- 


00 






BRK 






0374 


IF 


777 






0)14- 


OfO 






BRK 






0325- 


32 


77? 






0315- 


00 






BRK 
















0316- 


00 






BRK 






>$300. 


300 








0)17- 


00 






BRK 






0300- 








Ex i be valores nos enderegos de S300 


0)18- 


00 






BRK 






20 50 FC 20 


D0 F3 A9 


AA 


a S300. A primeira linha possui oito 


0)19- 


'JO 






BRK 






0308- 


85 1C 20 F6 


F3 60 




valores e a seguinte os sets restantei 


031A- 


00 






BRK 
















0310- 


00 






BRK 






! $ 300 










•S)10«)00. 


10OM 






Movimentagao de blocos de enderegos 


0300- 


20 




















( S300 a S30D), iniciando em $310 


1 $308 










1 S 300L 














0)08- 


B5 






Ex toe os valores nos enderegos $300, 


0)00- 


20 


58 


FC 


JSR 


SPC58 












S 308 e $300 


0303- 


20 


D8 


F3 


JSR 


SF3D8 




! $ 300 










0306- 


A9 


AA 




LDA 


• SAA 














0109- 


95 


1C 




STA 


SIC 


Listagem apos a movimentagao do bloco 


0)00- 


60 








0 30A- 




F6 


F) 


JSR 


SF3F6 


de enderegos. 












030D- 


60 






RTS 




Observer a repet igao do programa a 


1 $ 300G 






Execute o programa 



Para continuar, n§o e necessario digitar o endere^o seguinte, 
bastando deixar um espa^o e entrar com a nova instru 92 o;o 
sistema, automaticamente, colocara o endere<jo correto e o res- 
tante da linha: 

! LDA#0 < RETURN > 

0303- A9 00 LDA # $00 

N2o e preciso colocar o sinal S nos valores numericos, para 
indicar que s3o digitos hexadecimais. 

5 - Para listar, entre com o endere 90 inicial precedido do $ e 
seguido de L: 

!$300L< RETURN > 

Isto exibira as 20 primeiras linhas de instrugSo. Para conti- 
nuar a listagem, basta adicionar S e um novo L ou varios 

L: 

!$LLL< RETURN > 

6- Para executar o programa digitado, entre com o ende- 
re^o inicial precedido de S e seguido de G: 

!$300G< RETURN > 

7- Para mostrar valores guardados nos endere 9 os, digite o 
endere 9 o precedido de S e seguido de < RETURN > : 

!$300< RETURN > 

8 - Para exibir um bloco de ender690S, digite o endere9o 
inicial precedido de S, seguido de . e o endere90 Final: 

IS 300 .310 < RETURN > 



O bloco sera mostrado em conjunto de oito valores. 

9- Para mover blocos de endere 9 os, digite o endere 90 
inicial para onde vai ser movido, precedido de S, seguido de 
<endere 90 inicial . endere 90 final e a letra M: 

! $ 3 1 0 < 300 . 30AM < RETURN > 

10 - Para entrar com valores numericos de tabelas, digite o 
endere 9 o inicial precedido de S e seguido de : , escrevendo os 
valores separados por espa 90 s: 

! S 300 : 10 IF 20 AA 96 

Quando houver erro de digita 92 o, aparecera o sinal (A) no 
carater errado e soard o sinal sonoro (bip). 

O programa a seguir demonstra os varios comandos do 
Mini-Assembler: 

0100- to so re jso ores* 

0101- 20 o« r> j so trio* 

0J04- A1 A A LDA • SAA 

OIOO- OS 1C STA *!C 

ojoa- 20 r« rj jsk *r>rt 

OIOO- *0 STS 

Este programa limpa a tela de texto, colocando-a em modo 
grafico de alta-resolu 9 ^o (full screen) e colorindo a tela em 
vermelho. 

Considerando a utilidade do Mini- Assembler, o autor sugere 
que os fabricantes de micros da linha Apple, que utilizem o 
interpretador Applesoft, incluam em seus discos-mestres o 
programa Mini- Assembler. 

Para compreender a utiliza 9 ao do Mini-Assembler, observe 
a listagem de demonstra 9 ao feita com a impressora ativada. 

& 



Evandro Mascarenhas de Oliveira e Medico e vem desenvolvendo suas 
atividades nas areas de Laboratdrio C/inico e Instrumentagao Medic a. 
Trabalhou quatro anos com o computador Burroghs 6700, do Nucleo 
de ComputaQdo Eletr&nica da UFRJ, nas linguagens FORTRAN IV e 
AL GOL. £ u sue no dos micros NE -Z8000 e AP II. 
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Apple 
Laser II C 




Apple Laser 1 1C 



A Milmar Industrie e Comgr- 
cio est4 oferecendo um novo inte- 
grante da sua linha de equipamen- 
tos: o microcomputador Apple 
Laser 1 1C. 

Pesando apenas 1,8 Kg e com 
alga prbpria, o Laser IIC6 um mi- 
cro portStil que vem com tecla- 
do ergonomico, 64 Kb de RAM, 
alto-falante e interface para dois 
drives de 5 1/4”. gravador cassete. 
monitor colorido (pode ser usado 
um TV), joystick e mouse, ideal 
para trabalho com software inte- 
grado. A 16m destes recursos, o 
Apple Laser 1 1C pode ainda ser li- 
gado a uma placa com di versos 
conectores, o que permite a insta 
lagao de acessbrios como: drives 
de 8”, unidades de disco Winches- 
ter, plotter, expansdes de memb- 
ria, etc. A Milmar fica na A v. Dr. 
Cardoso de Melo, 1336, Vila 
Olimpia - SP. tel : (01 1 ) 531-3433 

Etiquetas 

autocolantes 

A Novelprint, empresa tradi- 
cional na fabricagao de etiquetas 
autocolantes em formulSrio con- 
tmuo, est§ colocando no merca- 
do a etiqueta Duraprint em Data- 
label. Este novo tipo foi desenvol- 
vido especialmente para ser mar- 
cado por computador e depois 
utilizado na identificagao de mi- 
cros, impressoras etc., dispensan- 
do o uso de chapas de metal. 

Maiores informagoes pelo tele- 
fone (011) 268-4111. 



TK-85 acessa Videotexto 

Este mes a Rensi Eletronica estS iniciando a comercializagao de seu 
kit para ligagao do microcomputador TK-85 ao sistema Videotexto da 
Telesp. Estao sendo langados dois kits diferentes, o primeiro com inter- 
face para ligagao d qualquer modem, com o programa de acesso grava- 
do em EPROM e cabo para conexao ao micro. O segundo kit j3 traz um 
modem integrado, bastando lig3-lo ao micro para se acessar o sistema. 
Os interessados nos kits podem entrar em contato com a Rensi Eletroni- 
ca Digital, Divisao Videotexto, atrav^s da caixa postal 6661 Sao Paulo 
- Capital, CEP: 01051. 

Plan-Soft: lan^amentos 86 

A Software-house Plan-Soft nao quer perder tempo e estS prome- 
tendo, para o infcio de 86, o langamento de jogos. aplicativos e utilit4- 
rios para a linha MSX, contando para isto com o apoio da Sharp. Outro 
langamento para o comego do prbximo ano 6 o gerador de programas 
BASIC, para o CP 500, Pro-Genius. 

Atualmente a empresa est3 comercializando doze jogos e um aplica- 
tivo (contas a pagar e receber, por Cr$ 56.000) paraoTK90X. Dentre 
os jogos. jd se destacam o Simulador de Voo (Cr$ 68.000) e Xadrez 
(Cr$ 41.000). 

A Plan-Soft fica na A v. Agua Fria, 925, CEP 02333, tel.: (01 1 ) 204- 
2777, Sao Paulo - SP. 



Programas 

educacionais 

Entre os programas que estao 
dando suporte ao langamento do 
Expert, da Gradiente, dez estao 
voltados para a area educacional 
e foram desenvolvidos especial- 
mente, sob encomenda do fabri- 
cate, pelo Centro Educacional 
Brasileiro de InformStica. Neste 
primeiro lote estao o Expert 
LOGO, que 6 a j3 conhecida lin- 
guagem LOGO; Toque!, que trans- 
forma o micro num 6rgao eletro- 
nico com oito instrumentos dife- 
rentes e 16 ritmos de acompa- 
nhamento; o Zoo-L6gica, um jogo 
onde cada participante ensina ao 
micro novos nomes de bichos, in- 
grementando o conhecimento da 
miquina; o Geo-L6gica, um jogo 
que adivinha o pais que o aluno 
imaginou, com base nas pergun- 
tas sobre caracteri'sticas destes 
pai'ses; e uma sbrie chamada 
Acentue, com programas sobre 
cada uma das regras de acentua- 
gao da lingua portuguesa. Todos 
estes programas serSo vendidos 
em cartuchos e a comercializagao 
sera feita pela prbpria Gradiente 
em aproximadamente tr£s mil 
pontos de venda. 



Itautec a 
todo vapor 

A Itautec firmou con- 
vbnio com o Liceu Pasteur, 
o liceu franco-brasileiro de 
Sao Paulo, para o forneci- 
mento, a pregos abaixo da 
tabela, de 18 microcompu- 
tadores modelo 1-7000, 
com duas unidades de dis- 
co cada um, e mais nove 
equipamentos PCxt, com- 
patfveis com o PC da IBM. 
Os com put ado res serao 
usados no Centro de Infor- 
mitica do Liceu, na area de 
educagao, no trabalho com 
estudantes do jardim atb 
o final do segundo grau. 
Este convbnio faz parte do 
projeto P6lo, da Itautec. 
que facilita a venda de mi- 
cros em colbgios e institui- 
g&es de pesquisa. 



Connect - US 

A Micropic InformStica, repre- 
sentante exclusivo da US Compu- 
tadores. esta colocando no merca- 
do o Connect- US, um novo soft- 
ware que permite a utilizagao 
de ate oito micros da linha Apple 
como terminals inteligentes de um 
IBM-PC. Segundo Carlo Filippini, 
diretor da Micropic, a grande 
vantagem deste software e que ele 
emula um minicomputador, ja 
que gerencia todos os micros 
usados como terminais inteligen- 
tes, permitindo o acesso ao banco 
de dados do Winchester. Tudo 
isto, mantendo a membria do PC 
livre. O Connect- US esta sendo 
comercializado por 140 ORTN e a 
Micropic espera vender Cr$ 500 
milhbes em programas deste tipo 
por mes. O enderego da Micropic 
6 A v. Sumar6, 287, tel.: (011) 
263-8200, Sao Paulo. 



Sorteio TK90X 

Maurfcio Moreira Cunha, de 
Maceib e Josa Carlos Pereira, da 
Bahia, sSo os vencedores da pri- 
meira rodada do concurso "Ganhe 
um micro TK90X”, promovido 
pela Microdigital em conjunto 
com MICRO SISTEMAS. 

O sorteio foi realizado no ul- 
timo dia 8 de novembro na pre- 
senga da editora responsbvel de 
MS, Alda Campos e do Gerente 
de Produtos da Microdigital, Mau- 
ro Zucato Filho. 

Na ocasiSo, Mauro Zucato 
Filho ficou tao entusiasmado com 
a receptividade do concurso que 
resolveu promover, albm das prb- 
ximas rodadas (j£ previstas), um 
outro sorteio final, dando mais 
uma chance a todos que participa- 
ram da promogao durante os tres 
meses. 




Enjoy Sampa 

Atengao usu^rios do CBBS Sampa, o concurso Enjoy Sampa para a 
escolha das mais criativas telas graficas teve seu prazo final prorrogado 
e agora as telas podem ser enviadas atb o dia 31 de dezembro. MICRO 
SISTEMAS £ uma das patrocinadoras do concurso juntamente com a 
Rhede Tecnologia, fabricante de modems. O vencedor receberS como 
prgmio um micromodem da Rhede para o seu tipo de micro, e os segun- 
do, terceiro e quarto lugares receberao uma assinatura anual de MICRO 
SISTEMAS. O julgamento das telas 6 feito pelos prbprios usu^rios do 
CBBS, que hoje j£ sao cerca de 130. O primeiro turno vai se realizar na 
primeira quinzena de janeiro e dele sairao dez finalistas. No segundo 
turno, na segunda quinzena de janeiro. serao escolhidos entao os quatro 
vencedores. As telas poderao ser vistas no SAMPA a partir do encerra- 
mento da fase de recepgao das mesmas. 



Cabos Pianos 

A Codicomp Eletronica est£ 
oferecendo 3s industries de eletrb- 
nica, inform^tica e telecomunica- 
gdes, toda uma linha adequada de 
cabos e conectores. Dentre os v£- 
rios produtos oferecidos pela em- 
presa, destacam-se os cabos pianos 
(Flat Cables), oferecidos nas bito- 
las 26 e 28, com capacidade sele- 
cionSvel de 14 a 60 vias (fios), e 
que possuem em cada uma das ex- 
r.emidades um conector ja monta- 
oo, de acordo com as especifica- 
goes do cliente. 



Filial carioca 

A empresa paulista Leader, 
que atua na comercializagao de 
computadores usados de grande 
porte, inaugurou no final de outu- 
bro uma filial no Rio. 

A empresa pretende diversifi- 
car suas atividades e para isto en- 
trou recentemente no mercado de 
minis usados e planeja tambbm 
comercializar micros, inicialmente 
novos. A filial carioca da Leader 
fica na A v. Rio Branco, 1815/ 
1606, CEP 20040, tel.: (021) 220- w 
0561, Centro. St 
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1-7000 PCxt. 

O melhor, melhorado. 





Tudo o que o PC da IBM sem, e 
1-7000 PCx! da Itautec tem Melhorado 

0 IBM pfoeessa numa velocidade 
de 4.77 MHz O Itautec 4,7? eS MHz. 

0 fBM 'em uma resolute gr^lica 
600x200 E uma cor O Itautec 600x200 
b 640x400. am 4 cores 

No sistema operaciana i o I- 7000 
PCxt iamb£m leva vantagem 0 IBM 
opera com um ymeo ^sterna g MS-DOS. 

O Itaulec opera com dots si sterna s o SIM M 
compalivel com g CFVM. e o SIM/DOS. 
compai i ve* com o M S- DOS Adici0na*mer>t@ „ 
o SiM-'DOS tem a caracterisiica exclusiva 



de opera* em mulliprocessamentD 

O PCxt da Itautec tem ainda tecla- 
do em pertugues e irabalba com Rede 
Locai prOpna, a tirmca no Brasil que parmi- 
(e a inter ligagao de micros de fl e 16 tuts, 
a uma velocidade de 2 b megabits 

0 mglhor groduio tem tambem a 
melhor assistSnaa l^cnica, presente em 
120 localidades brasileiras E. al^m de 
fvhaie naa principals capitals, a ttaulec dss- 
p*e de uma rede com mais de 50 revende- 
dores autor rzados em todo o Br asri 

Conheca o 1-7000 PCx! da Itautec 
O melhor. melhorado 
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Teleimpressor da Stratus 



A Stratus Informdtica, fabri- 
cante de impressoras, colocou no 
mercado o teleimpressor modelo 
330, que executa sete aplicagoes 
diferentes O modelo pode ser 
acoplado a um microcomputador, 
atrav^s da interface RS 232-C que 
ele possui, e funcionarS como im- 
pressora matricial com velocida* 
de de 110 cps, al6m de poder ser 
usado tamb6m como terminal de 
consulta a bancos de dados, espe- 




cialmente o projeto Cirandao. 
Atrav6s da linha telefomca e mo- 
dem o teleimpressor 330 pode 
emitir e receber textos. A nova 
m&quina da Stratus tern buffer de 
edipao de 4 Kb e de 2 Kb para re- 
ceppao, teclado eletronico de 62 
teclas e aceita formul^rio conti- 
nuo ou folhas soltas comuns. Ou- 
tras mformapdes podem ser obti 
das na Stratus pelos tels.: (021) 
252-3846 e 252 0623. 



Clube de Treinamento Tecnico 



A Suporte Tecnologia. empresa carioca espe- 
cializada na Manutenpao de Computadores, peri- 
f6ricos e redes de dados, lartpou o CTT (Clube de 
Treinamento Tecnico), visando proporcionar as 
empresas um treinamento tecnico e prdtico de 
alto mvel para os seus funcion£rios. Dentre os 
cursos oferecidos podemos citar: Semiconduto- 
res, Ldgica I e II, Microprocessadores Z-80, 8086/ 
8088, Manutenpao de Terminals de Video, Tele- 



processamento. Assembler, C. Pascal etc. 

Inicialmente, somente as empresas poderao 
participar do CTT, atrav6s de um contrato com 
durapao de um ano e pagamento de 2 ORTN por 
m§s para cada funcionario inscrito, com direito a 
tr§s cursos durante este penodo. Maiores infor- 
mapoes poderao ser obtidas na prbpria Suporte a 
Av. Presidente Vargas. 542, conjunto 1504, Rio 
de Janeiro-RJ, tel: (021) 263-6594. 



Novas versoes do Gensoft I 

A Gensoft estS oferecendo quatro novas versoes para o seu conheci- 
do Gensoft I. A primeira 6 o Gensoft I Plus (110 ORTN). dispomvel 
para os compatfveis com IBM -PC e XT, onde foram amphados os re- 
cursos de edipao de textos e c^lculo, albm de ter sido incorporada uma 
rotina de apresentapao mats rapida das telas. 

O Gensoft Exe (35 ORTN) 6 uma versao reduzida do Gensoft I para 
micros de 8 e 16 bits, onde foi eliminada parte do Mbdulo de Desen- 
volvimento. sendo dirigido aos grandes clientes. J5 o Gensoft Jr (40 
ORTN) 6 voltado para prof issionais liberals e incorpora um editor de 
texto, tratamento de cSIculos. menu e um sistema de teclas de funpao 
(so para 16 bits). Por ultimo, o Gensoft Escreva (25 ORTN) um soft- 
ware para edipao de textos que oferece todos os recursos dos editores 
tradicionais. para micros de 16 bits. O telefone da Gensoft 6 (011) 
881-2320 

Livros sobre MUMPS 

A McGraw-Hill e a Medidata vao lanpar uma sbrie sobre MUMPS. O 
primeiro livro da sbrie sera MUMPS - Manual da Linguagem e esta pre- 
visto para chegar nas lojas em fevereiro de 1986. 

Segundo Fernando Del Valle, Diretor de Suporte da Medidata, a s£- 
rie nao estS totalmente defmida e ainda nao se tern o nome dos outros 
livros que serao publicados. 

A McGraw-Hill assinou tambbm um contrato com Oscar Burd e Luiz 
Young, Diretores do CEBI, para a publicapao, em marpo, de uma sbrif 
sobre c padrSo MSX. 



Kit para 
Apple 

A Embracom Eletrbnica estci 
colocando no mercado seu kit pa- 
ra acesso de micros da linha Apple 
aos servipos Videotexto e Ciran- 
dao. O kit 6 composto por uma 
interface serial, um cabo de liga- 
pao e os softwares para acesso ao 
Videotexto ou ao Cirandao. Acom- 
panha tambbm um modem assm- 
crono que opera na velocidade 
1200/75. O prepo de lanpamento 
do kit da Embracom 6 de 24 
ORTN. Maiores informapSes a res- 
peito podem ser obtidas na pro- 
pria empresa atravds do telefone: 
(011) 521-6044 



Treinomovel 

Tremombvel, este 6 o novo 
servipo que a Datalbgica passou a 
oferecer a seus clientes. Trata-se 
de salas de aula mbveis, total- 
mente equipadas, para serem ins- 
taladas nas empresas que necessi- 
tem de treinamento na Srea de 
informStica. Os cursos mbveis tern 
a mesma durapao dos que sao 
ministrados no centro de treina- 
mento da Datalbgica (40 horas). 
e no prepo de 600 ORTN estao 
inclufdos o material, instalapao 
e professores. Os interessados 
devem contactar a empresa em 
Sao Paulo pelo telefone (011) 
283-0355 ou no Rio (021) 
240-8909. 



Programa 

astrologico 

A Buddy Byte I nformbtica co- 
locou no mercado um software 
auxiliar para cblculo dos elemen- 
tos bbsicos do horoscopo, o Astro- 
byte. Desenvolvido para ser utili- 
zado em micros da linha Apple, o 
Astrobyte pode. em apenas um 
mmuto, obter as posipoes dos pla- 
netas, tres sistemas de casas, a po- 
sipao do vbrtice e de Lilith etc. A 
comercializapao do novo progra- 
ma est3 sendo feita diretamence 
pela Buddy Byte, que fica na rua 
Abilio Soares. 278, sala 5, em Sao 
Paulo. O Astrobyte vem acompa- 
nhado de um manual completo de 
instrupoes que facilitam o manu- 
seio por parte do usuario. Maiores 
informapoes podem ser obtidas 
pelo tel : (01 1 ) 285-0464 



Catalogo 

Cobra 

A Cobra Computadores 
esta colocando a disposipao 
de seus usudrios e clientes 
em geral, atravbs de suas 1 1 
filiais em todo Brasil, a se- 
gunda edipao do seu Cata- 
logo de Programas. 

O catalogo possui 700 
paginas e relaciona 612 
programas aplicativos dis- 
ponfveis para toda a linha 
de equipamentos Cobra 
Nele est§o listados o nome 
do programa. empresa pro 
dutora, aplicapao, equipa- 
mentos compatfveis, siste- 
ma operacional e lingua- 
gem. 



Um novo 
Unix 

Esta sendo comeiciahzado pe- 
la Omega um novo sistema ope- 
racional similar ao Unix. Tiata-se 
do UNICA, cnado poi uma 
software house paulista do mes 
mo nome. 

O sistema, desenvolvido em 
linguagem Pascal, e um geradoi 
de aplicativos multiusuario e mul 
titarefa. com funcionamento em 
tempo real, e permite a ligapao 
em rede dos micros MC-400 e 
MPC-400XT, compatfveis respec 
tivamente com o Apple e o XT. 
da IBM. A Omega ja esta of ere 
cendo quase quarenta aplicativos 
desenvolvidos a partir do UNICA 
Maiores mfoimapoes pelos telefo 
nes (011) 276-1276 e 275 4199 

Cursos 

Servimec 

Na Servimec Sao Paulo estao 
programados, para dezembro, se- 
minar ios sobre dBase III. Lotus 
1-2-3 e dBase II O de dBase III 
sera de 11 a 13, das 09 00 as 
1 7 :30h; o de Lotus 1-2-3 aconte 
cer£ de 16 a 20, das 19 00 as 
23 :00h, e do dia 16 ao dia 18. das 
09:00 as 17 :30h, haver a um semi 
nario sobre dBase II Maiores 
informapoes na Rua Correa dos 
Santos. 34. Bom Retiro, Sao Pau 
lo. ou pelo tel (011) 222-1511 

Software 

SPI 

A SPI — Tecnologia em In 
formbtica, em conjunto com a sua 
principal aciomsta, a SPA - Sis 
temas. Planejamento e Analise. es- 
t§o comerciahzando dois pacotes. 
Open Access e Conductor, ambos 
para equipamentos compativeis 
com o IBM-PC 

O Conductor e uma linguagem 
de quarta gerapSo e o Open Access 
e um sistema integrado composto 
de seis mbdulos: Gerenciador de 
Informapoes; Folha de Cilculo. 
Processador de Textos. Graficos, 
Agenda e Comunicapoes, por 
258 ORTN. Os telefones da SPI 
sao (021) 262-8455 e (011) 

884-3144 

Novo enderepo 

A Assistencia Tbcmca da Mi- 
crodigital, no Rio de Janeiro, ago- 
ra tern novo enderepo. Ela esta 
local izada £ Rua Santa Luzia, 
799, conj. 302, Centro, tel. 
(021) 220-8263 
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Modos graficos especiais: va alem do manual e conhega 
os recursos deste potencial oculto dos micros TRS Color. 



Graficos especiais 

Claudio Costa 



E m MICRO SISTEMAS n? 48 discutimos alguns aspec- 
tos relacionados com a programa92o de graficos nos mi- 
cros da linha TRS Color. Um desses aspectos dizia res- 
peito aos modos graficos especiais, que n5o s2o descri- 
tos no manual e n2o pertencem tambem ao repert6rio do 
BASIC desses equipamentos. Tendo em vista as poucas infor- 
ma(?Oes disponiveis sobre o assunto, este e um capitulo que 
merece ser tratado d parte, a fim de esclarecer tanto duvidas 
quanto alguns conceitos fundamentals acerca deste potencial 
oculto do Color Computer. 

Um aspecto que deve ficar claro, com re^Jo a esses modos 
graficos, e o cardter seletivo de sua manipula^ao. A organiza<j§o 
do display nos modos semigraficos apresenta caracteristicas 
bastante diferenciadas, enquanto que nos modos estritamente 
graficos nem sempre e possivel utilizar as rotinas do Extended 
Color BA§IC para gerenciamento de gr&ficos - tais como 
CIRCLE, PAINT , DRAW e outras. Na pratica, apenas as insr 
truces POKE e PEEK poderSo ser usadas para controle das 
informa^Oes de video, ent retan to se o programa for muito 
extenso tornar-se-i lento. £ f£cil notar que s6 o usuirio que 
possui maior intimidade com a miquina, alem de algum co- 
nhecimento de programa^ao Assembler, podeii contornar 
tais limita^Ges e utilizar plenamente esses novos recursos. 
N5o hi como negar, todavia, que a criatividade muitas vezes 
fala mais alto do que a tecnica, e neste ponto e importante 
um conhecimento maior das possibilidades do equipamento. 
Vale a pena, por isso, conhecer e tentar dominar esses modos 
graficos especiais. 

CONCEITOS BASICOS 

Sabemos que o video no Color Computer e controlado por 
dois microprocessadores, o Video Display Generator (VDG) 
e o Synchronous Address Multiplexor (SAM), interfaceados ao 
sistema por um Peripheral Interface Adaptor (PI A). O modo 
grafico em uso e determinado pela posi^io dos bits do byte 
SFF22, que e o registro de controle do VDG,conforme mos- 
tra a figura 1. 

Alem disso, existem tres pares de registros de controle do 
SAM, nos endere90S SFFCO/1, SFFC2/3 e SFFC4/5, que 
devem ser ajustados de acordo com os valores dos bits 4-6 do 
VDG. Funcionando em sincronia, o VDG e o SAM admitem a 
sele^ao entre oito modos estritamente graficos, que utilizam 
dois conjuntos alternatives de duas ou quatro cores. Como a 
sele^ao do modo de opera^io destes dispositivos e realizada 
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Figura l 

por software, tal sincronia nao e obrigatoria, e em termos fun- 
cionais e possivel ter o VDG e o SAM operando de forma dis- 
tinta, desde que isto ocorra dentro de certos parametros. Este 
e o principio bisico para a obten^ao de modos semigraficos 
especiais, que permitem, por exemplo, simular alta-resolu^io 
com texto e oito cores simultaneas. Ainda dentro do sistema 
normal, e possivel acessar tres modos graficos simples, alem 
de caracteres especiais semelhantes aos do TRS-80 modelo 111. 

Para mostrar os modos graficos adicionais, a partir do 
BASIC, usaremos um macete, que consiste em ajustar o ende- 
re^o inicial da tela grafica em $600 - o mesmo endere^o usa- 
do pelo BASIC. Dessa forma, PCLS funciona normalmente, 
enquanto a sele^io do modo grafico pode ser feita atraves de 
um POKE em cada valor correspondente nos registros de 
controle. As variaveis do sistema que apontam a cor e a utyima 
posi^io da tela para PCLS podem igualmente ser ajustadas por 
meio de POKE, a fim de refletirem a cor e o tamanho corretos 
do display. Se a inte^ao e usar o Assembler, vale lembrar que 
toda instru^ao POKE equivale a uma opera^io LOAD, regis- 
trador com um determinado valor, e STORE, o valor desse 
registrador num dado endere90. Para utilizar a rotina de PCLS 
da ROM num programa Assembler, basta carregar o endere90 
de initio da tela em SBA, o endere90 final mais 1 em SB7 e 
comandar JSR $9542. 

Todos os endere9os citados neste artigo sao validos para os 
equipamentos que nao possuem disco. Os sistemas de disco 
utilizam parte da primeira pagina grafica como buffer, e o 
endere90 inicial da tela e realocado em SEOO. Neste caso, 
deve-se somar $800 aos endere9os descritos. 

MODOS GRAFICOS 

0 BASIC admite o acesso a cinco modos graficos distintos 
(PMODE 0 a 4). Os PMODE 1 e 3 operam com conjuntos alter- 
natives de quatro cores, e como requerem, respectivamente, 
3 e 6 Kb de memoria RAM para serem mapeados, s2o tambem 



conhecidos como modos 3C e 6C. Os demais modos - PMODE 
0, 2 e 4 - possuem conjuntos de duas cores, e s5o tambem 
chamados de 2R, 3R e 6R. Os tres modos grdficos adicionais, 
que n«Io s£o reconhecidos pelo BASIC, se caracterizam pela 
baixa resolu9§o e necessitam de pequena quantidade de memo- 
ria para serem representados, o que os habilita para anima9ao 
quadro-a-quadro ou ilustra95es com menor grau de detalha- 
mento. Dois destes modos graficos operam com quatro cores, 
e o ultimo com duas. 

MODOS DE QUATRO CORES 

O primeiro modo grafico adicional e denominado 1C e apre- 
senta uma resolu9ffo de 64 x 64 pontos, ocupando 1024 bytes 
de memoria RAM. Estabelecendo-se o endere9o $600 como 
primeira posi9lo de video, a ultima pos^Jo sera $9FF. 

O programa a seguir mostra a configura9ao dos registros de 
controle, as dimensOes da tela e o tamanho do ponto no modo 
1C: 

1 REM MODO 1C 

10 POKE fcHB7,10:PCLS ' a just a PCLS para limpar a tela ate 
S9PF f 2S6 • 1 0- 1 . 

20 POKE 4HFFC7.0 ' end. true. tela qrafica « S600 

10 POKE 4HFF22 , 4H80 ' program* VDG: substltuir por 4H88 
p/ color set 1 

40 POKE fcHPFC 1 f 0 ' programa SAM 

SO POKE 4 H600 . 64 : POKE 4H9FF, ’ * mostra linutes superior e 
inferior da tela e tamanho do ponto 

70 GOTO 70 ' conge la a imagem 

Para se ter uma ideia do mvel de resolu9^o e so desenhar 
uma linha no centro da tela: 



para ser representado e possui uma resolu9ao de 1 28 x 64 
pontos. 

O programa abaixo demonstra os dados dos registros de 
controle, a dimens2o do ponto e o nivel de resolu9§o deste 
modo, denominado 2C: 

1 REM MODO 2C 
10 POKE 4HB7. 14 :PCLS 
20 POKE 4HFFC7.0 

10 POKE 4HFF22 , fcHAO * 4HA8 p/ color set 1 

40 POKE 4HFFC 3,0 

r )0 POKE 4H600.64: POKE 4HDFF. 1 

60 FOR J ■ fc H 9 E 0 TO 4H9FF:POKE J,8 r -NEXT 

70 GOTO 70 



MODOS DE DUAS CORES 

Como o modo 2C, o modo adicional 1 R tambem apresenta 
uma resolu95o de 1 28 x 64 pontos, porem como s6 duas cores 
podem ser combinadas, apenas 1024 bytes s£o necessarios para 
mapeamento. 

’ REM MODO 1 R 
10 POKE fcHB7, 10: PCLS 0 
20 POKE 4HFFC .0 

10 POKE 4HFF22.4H90 • fc HR8 p/ color se» 1 
40 POKE 4HFFC1.0 

SO POKE 4H600, 1 27; POKE 4H9FF,2 t >4 
60 POR J* 4H7E0 TO 4H7EF:POKE 1,0:NEXT 
70 GOTO 70 

MODOS SEMIGRAFICOS 



60 FOR J = & H7E0 TO & H7EF :POKE J,85 :NEXT 
O segundo modo grafico de quatro cores requer 2048 bytes 



Alem dos modos estritamente graficos, onde o elemento 
fundamental e o ponto ou pixel, o VDG e capaz de gerar mo- >y 
dos semigraficos, onde o elemento fundamental e representado it 



COMUNICACAO ENTRE MICROS PARA 
TRANSFERENCIA DE ARQUIVOS 



O TRANS FERE c a solucao para o scu problema 
de icr varios mic ms com formaios do diskette ou 
sistemas operacioirais incompativeis. 

Com o TRANSFERE voc& pode transferir 
arquivos entre dois micros at raves de uma 
ligac^o por cabo. O TRANSFERE usa as 
interlaces seriais dos sens micros, podendo 
lunciouar com velocidade de transtuissdo de ate 
^600 bauds. 

Na tabela ao lado voce em ontra as caracteristicas 
mais importances do TRANSFERE. Use- a para 
l.u ilitar a sua decisao de compra, com pa rand o o 
TRANSFERE com os concur rentes. 

Computadores ja suportados: POLYMAX, 

EDISAj DISMAC, TELSIST. ITALTEC, 
PROLOGICA. MICRO 1 EC. SCOPUS, 

UNIT RON. M ICROENGEN HO, todos os 
compativeis com o APPLE usando placa CP/M e 
todos os compativeis loin o IBM PC (consulte- 
nos se o seu cotnputador niio esta listado, novas 
versoes estao sendo feitas). 

PR ECO: 20 ORTNs para compativeis com o 
APPLE II, 

30 ORTNs para micros CP/M 
40 ORTNs para micros MS-DOS 
(compativeis com IBM PC> 



Compare voce mesmo o TRANSFERE com os concorrentes 



CARACTERISTICAS 


TRANSFERE 




Permite a transferftncia de arquivos entre 
micros CP/M e compativeis com IBM PC 


SIM 




Faz a transmissao usando um protocolo de 
verificagao e corre?ao automatica de erros 


SIM 




.Transmite qualquer tipo de arquivo. como 
fontes de programas, textos, arquivos de 
dados, programas execut6veis. etc. 


SIM 




Permite transmits varios arquivos com um 
unico comando, usando a conven 9 §o de ? e 
para especificar o grupo. 


SIM 




A transmissao pode ser feita atrav6s de 
liga^ao direta por cabo ou atrav6s de linhas 
telefdmcas usando modems. 


SIM 




Para transferSncia de arquivos basta dar o 
comando em um dos micros ligados. o outro 
responde automaticamente. 


SIM 




Permite acessar qualquer drive em qualquer 
um dos micros, podendo listar diret6rios do 
micro local ou do remoto. 


SIM 




Permite emular um terminal com protocolo 
TTY para ligapao com CIRANDAO, DISQUE- 
BOLSA. ARUANDA e outros servigos. 


SIM 




Acompanha o programa um manual 
completo. que explica detalhadamente a sua 
utilizagio 

V 


SIM 


J 



I NTELSOFT 



INTELSOFT Projeio e Desenvolvimenio de Sisiemas S/C ltda 

Praia do Fiamengo 66 Sala 1 104 CEP 22210 Te! (021)265 3346 - Rio de Janeiro - RJ 
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grAficos especiais 




Figura 2 



por si'mbolos graficos especiais, que podem ser exibidos na 
tela de maneira semelhante aos caracteres de texto. Dentro 
deste conceito, e possivel exibir simultaneamente caracteres 
graficos e alfanumericos, de maneira a se obter ilustra^Oes sim- 
ples. O VDG possui dois modos semigraficos, chamados de 4 
e 6, em fun^ao do numero de elementos em que pode ser 
dividido o carater grdfico. 

MO DO SEMIGRAFICO 4 

Este modo semigrafico e suportado pelo BASIC atraves das 
ilustra^Oes SET/ RESET e PRINT CHRS(n), onde n e um nu- 
mero entre 128 e 255. O carater grafico pode assumir uma 
entre oito cores. Confira no esquema da figura 2. 

O byte de video nesse modo e organizado de maneira que 
os bits 0-3 refletem o formato do carater: se o valor do bit for 
1, o elemento correspondent e esta aceso e e mostrado na cor 
indicada pelos bits 4-6; caso contrario esse mesmo elemento 
e considerado apagado, sendo exibido em preto. Por este moti- 
vo, os elementos que compOem um carater grafico n2o podem 
assumir mais de uma cor. O programa abaixo ilustra os forma- 
tos possiveis de um carater: 

• 0 cxs * 

io ron j»>m m jo’iFKNT* 2)*. onsiJit 

io tr inner*-** theh to 

«o wtrr 

to ootp *o 

MODO SEMIGRAFICO 6 

Como o nome indica, o carater neste modo semigrdfico 
e composto por 6 elementos, o que permite uma resol^So 
de 64 x 48 pontos. A matriz dos caracteres e identica a dos ca- 
racteres graficos 128 a 191 do CP- 500, embora, salvo algumas 
coincidences, nlo exista qualquer correlate entre os codigos 
desses mesmos caracteres. Veja o esquema da figura 3. 

Neste modo, seis bits (0-5) definem a configura^o do cara- 
ter, o que deixa apenas os bits 6 e 7 disponiveis para indica^So 
de cor. Como o bit 7 e tambem usado como indicador de mo- 
do grafico, apenas azul e vermelho do conjunto de cores 0 e 
roxo e laranja do conjunto de cores 1, podem ser combinados 
numa mesma tela. Este modo n2o e compatfvel com texto, 
e assim os caracteres s6 podem ser acessados por meio de 




Figura 3 



POKE no video. O programa a seguir mostra os caracteres do 
modo semigrafico 6 : 

to rone »nrr : i . m >• • cus ■ • »*:* c»i<u *«► : 

20 PO« Ji»74 TO 141, POM 4H4CT.J 

to tr innnr*-" thew to 

*0 MXT 

*0 GOTO *0 

Ate aqui trabalhamos com os microprocessadores para 
controle de video em sincronia. Toda vez que o VDG era pro- 
gramado para um modo grafico, o SAM era setado para funcio- 
nar de maneira correspondente. Como foi dito no im'cio deste 
artigo, e possivel tirar partido desta sincronia e obter mais 
tres modos semigraficos especiais. Para entender melhor o fun- 
cionamento do processo, comece considerando a matriz de 
um carater alfanumdrico, ilustrada na figura 4. 

Levando-se em conta que a resolu- 
920 maxima no Color Computer e 
de 256 x 192 pontos, isto resulta 
em 256/8 =32 colunas por 192/12 
= 16 linhas, que e o arranjo do dis- 
play para a tela de texto. Nos mo- 
dos semigraficos especiais, o VDG e 
programado em modo texto, e o 
SAM num dos modos graficos de 
quatro cores (2C, 3C ou 6 C); dessa 
maneira, embora o video seja orga- 
nizado em modo grafico, o elemen- 
to fundamental do display continua 
Fiffira 4 sendo o carater, logo e possivel 

combinar texto e as oito cores da 
tela com o uso de SET/ RESET. Dentro desta configura 92 o, os 
caracteres graficos e alfanumericos permanecem nas pos^Oes 
estabelecidas pela divisao de 32 colunas por 16 linhas, porem a 
matriz original de 8 x 12 passa a ser acessada em fra 95 es me- 
nores, o que significa que mais de 1 byte sera necessario para 
representar um carater - na pratica 4, 6 ou 1 2, dependendo do 
modo grafico utilizado. Como o SAM esta em modo grafico, 
onde a imagem e composta linha a linha, esses bytes nSo s 2 o 
organizados de forma continua, mas em intervalos de 32 bytes 
cad a - o tamanho de uma linha do display em modo grafico. 

Vamos tentar compreender o que isso tudo significa. O 
programa a seguir seleciona um modo semigrafico e imprime o 
carater “A” no centro da tela. Pressione qualquer tecla para 
proceder a impressffo. 

to POKE 4HB7 , 30 : POKE 4HdJ,99 a}usta cor e ultima 
poaigao de PCLS 
20 POKE fcHrFC7,0 

JO POKE 4HPP22.0 * VDG em modo texto 

40 POKE fcHPFCJ , 0 : POKE 4HFFC5.0 * SAM em modo 6C 

SO I-tHiOBF poa. inicial de impressao do car. 

60 POR Jm 1 TO 12 
70 IF INKEY$*““ THEN 70 
80 POKE X , 6S * 65-ASC ( ’A* 1 
90 !• I ♦ 32 : NEXT * prox. impr . apos J2 bytes 
100 GOTO 100 

Note que a impressSo nZo e realizada de uma s 6 vez, mas 
em 12 intervalos separados por 32 bytes. Experimente modifi- 
car o codigo do carater, na linha 80, e o endere 9 o inicial de 
impressSo por qualquer outro entre $600 e $ 1DFF, na linha 
50, para entender melhor o que foi dito. 

O poder destes modos graficos reside na possibilidade de 
se misturar informa 90 es de diversos caracteres, obtendo-se 
novos simbolos e caracteres graficos, alem de facilidades como 
sublinhamento, vinhetas, etc. Experimente introduzir estas 
modifica 90 es no programa anterior: 

10 POKE tHB J,24S:PCLS 
60 FOR J« t TO 12: READ A 
70 POKE I. A 
80 I ■ I ♦ 32 : NEXT 

90 DATA 207. 207, 207, 169, 1S9. 159. 255. 255. 255, 

191, 191, 191 
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Figura 5 Figura 6 Figura 7 

O novo carater grafico e obtido atraves da jun 9 §o das linhas 
de quatro caracteres graficos originais. 

MODO SEMIGRAFICO 8 

Este e o primeiro modo semigrafico extra obtido atraves da 
programa 92 o diferenciada dos microprocessadores de video. 
O carater grafico pode ser dividido em oito elementos, a partir 
de uma matriz de 2 x 4. Observe na figura 5 que a resolu93o 
obtida e de 64 x 64 pontos, e 2048 bytes s2o necessarios para 
mapeamento. 

•0 POKE kHB J. wa 

20 POM fcHrrc7.0rPO«E fcMfTJ2.0 

10 POPE tHrPTI.O 

<0 POKE fcHB). I4i PCLS 

*0 POPE 4H600 1*2 i POKE 4HDPP.I4* 

40 POP TO kMirp 

r 0 POPE J. 

•0 GOTO ao 

MODO SEMIGRAFICO 12 

Este modo permite uma resoh^So de 64 x 96 pontos e usa 
3072 bytes de memoria RAM. Para ver o nivel de resolu 9 «Io e 



a dimensSo do ponto neste modo grafico, veja a figura 6 e mo- 
difique as seguintes linhas do ultimo programa: 

30 POKF. 4HFFC5.0 

40 POKE fcHB7, 1 8 : PCLS 

50 POKE 4H600, 162 : POKE iHMPF.U* 

60 FOR J-.4HBE0 TO fcHBFF 

MODO SEMIGRAFICO 24 

Aqui, 6144 bytes sSo necessarios para representar este mo- 
do semigrafico, que e o que admite maior resolu 9 ao: 64 x 192 
pontos. Cada linha da matriz do carater mostrado na figura 7 
pode ser acessado individualmente. Modifique estas linhas do 
exemplo anterior: 

h> i ib turn i, nip* »Mn 
*r i- »t 4H6 I*** L 

n m«t (n 400 . hi) •» » 

conclusAo 

Embora indiscutivelmente poderoso, o sistema grafico 
BASIC do Color Computer nSo esgota as possibilidades de tra- 
balho do equipamento. Os modos graficos opcionais — e os 
semigraficos, em particular - constituem um novo espa 9 o para 
a cria 92 o grafica nesta famflia de micros. O objetivo deste arti- 
go e apenas complementar as informa 9 fies do manual e funcio- 
nar como uma intrudu 9 So a esta face menos conhecida da pro- 
grama 9 So grafica no TRS Color; a experimenta 9 <fo com este 
sistema e um passo fundamental no sentido de se confirmar 
que, neste campo, muita coisa ainda existe para ser criada e m 
descoberta. * 



Claudio Costa 4 Desenhista free- lancer e tern como hobby a programa- 
Qao de microcomputadores. 



CONTABILIDADE ON-LINE PARA 
MICROCOMPUTADORES 



A Contabilidade INTELSOFT e a unica que realmente 
funciona em modo on-line. A qualquer momento voed 
pode fazer consultas no video para obter saldos de 
qualquer conta e lan^amentos em formato de raz3o. 

A Contabilidade INTELSOFT funciona tanto em 
mi< ros de 8 bits, com sistema operational CP/M, como 
em micros de 16 bits, compadveis com o IBM PC. 
Todas as versfles s&o funcionalmente id^nticas 
podendo os mesmos arquivos serem usados por 
qualquer versio. Isso significa que ao mudar de 
computador voed continua trabalhando da mesma 
maneira e aproveita iniegralmente o trabalho ja feito. 

Na tabela ao lado voc£ encontra as caracteristicas mais 
imponantes da Contabilidade INTELSOFT. Use-a 
para facilitar a sua decis^o de compra, comparando-a 
com as concorrentes. 

PRECO: 150 ORTNs para micros CP/M 

200 ORTNs para micros MS-DOS 
(compadveis com IBM PC) 

Caso vot'd queira experimentar o sistema antes de 
compra-lo, a INTELSOFT fornece um pacote de 
demonstrat,ao por apenas 15 ORTNs. O pacote de 
demonstrac^o e uma vers^o completa do sistema, sem 
nenhuina limita^o, acompanhada do manual. O valor 
do pacote de demonstracSo pode ser aplicado 
integralmente, em ORTNs, na compra do sistema, em 
um prazo m&ximo de 60 dias. 



compare voce mesmo a nossa contabilidade com os concorrentes 



CARACTERISTICAS 

Totalmente controlado por menus e 
realmente on-line. 

Numero m£ximo de contas 
Numero maximo de lanpamentos 
Maximo de algarismos por valor 
Maximo de graus no piano 

C6digo de conta flexfvel e definido pelo 
usuirio com numero vandvet de dfgitos por 
graUi 

Lampamentos de partida simples ou dobrada 

Histdricos livres e padromzados 

Permite trabalhar com ou sem centavos 

Permite consolidar os dados de diversas 
empresas ou filiais 

Emite relatdrios especiais para corretoras e 
distribuidoras de acordo com os modelos do 
Banco Central 

Permite que os dados do sistema sejam 
convertidos para serem usados por pacotes 
como o dBASE II ou III, LOTUS 1-2-3, 
VISICALC ou por programas escritos em 
qualquer linguagem. 



INTELSOFT 



65535 

65535 

15 
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INTELSOFT Projeto e Desenvolvimento de Sistemas S/C Ltda. 
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Maurtcio Venc/a 



O computador 
na sala de aula 




computador- contribui positivamente 
para o aceleramento do seu desenvolvi- 
mento cognitivo e intelectual, especial- 
mente no que diz respeito ao raciocinio 
lbgico e formal, a capacidade de pensar 
com rigor e sistematicidade, e a habilida- 
de de inventar ou encontrar solugbes 
para os problemas. 

OS CONTRAS 

0 Professor Waldemar Setzer, do Ins- 
titute de Matematica e Estatistica da 
Universidade de Sao Paulo, ja e conheci- 
do por sua postura radicalmente contra 
o uso do computador no ensino de pri- 
meiro grau, e chegou a publicar um ma- 
nifesto no qual explica sua posigao. Seu 
enfoque baseia-se nas iddias do pensador 
Rudolf Steiner (1861-1925), que divide 
a evolug^o do ser humano, inicialmente, 
em tres fases de sete anos cada uma (de 
0 a sete anos; dos sete aos 14 e dos 14 
aos 21 anos). 

Seguindo a opiniao de Steiner, o Pro- 
fessor Setzer explica que o pensamento 
da crianga no segundo setenio tern a ca- 
racteristica de ser imaginativo, e nao 
abstrato, e que por esse motivo a educa- 
92k) nesse periodo, que equivale ao pri- 
meiro grau, deveria ser toda baseada em 
atividades arti'sticas. Segundo Stezer, o 
erro est & em se querer desenvolver abs- 
tragao e raciocinio lbgico antes da epoca 



adequade, isto e, antes da puberdade, do 
primeiro grau. “Depois da puberdade, a 
crian9a tern seu pensamento liberado, 
podendo entlo usa-lo para come9ar a 
formular conceitos e teorias formais", 
esclarece. Mas o Professor Setzer ressal- 
ta que, como a maquina exerce um fas- 
cinio enorme, ele colocaria o jovem em 
contato com ela apenas no ultimo ano 
do segundo grau. 

Em seu manifesto, Waldemar Setzer 
mostra que, alem de instrumento da ins- 
trugao programada, o computador e 
tambem usado no ensino como instru- 
mento de simulagao. “Mas a simulagao 
exige um modelo matematico, e este 
n2o existe no mundo real, s6 na mente 
dos modeladores. Por que nao experi- 
mentar com a realidade, em lugar de 
modela-la matematicamente?”, questio- 
na Setzer. Mesmo considerando interes- 
sante o projeto LOGO, desenvolvido no 
Massachussets Institute of Technology 
(MIT), pelo educador Seymor Papert, 
no final da decada de 60, Setzer critica e 
condena o sistema de Papert dizendo 
que este consiste basicamente no apren- 
dizado de uma linguagem de programa- 
9^0 e no aprendizado de construgao de 
algoritmos atraves de um sistema intera- 
tivo. 

Por outro lado, na visao de Stezer, os 
alunos deveriam completar o segundo 
grau com no95es bdsicas do que e um 



computador, um programa, e com habi- 
lidade para construir programas bem 
simples. “E a razSo disso”, explica ele, 

“e que o computador esta (infelizmen- 
te) penetrando em todas as atividades 
humanas; e £ bom desmistifica-lo, a fim 
de que nifo seja um misterio...”. 

Com relagfo & mecanizagSo das for- 
mas de pensar que o computador pode 
produzir na crian9a, Eduardo Chaves re- 
bate o argumento dizendo que, ao inv^s 
de ficarmos lamentando os possiveis 
efeitos funestos que a presen9a do com- 
putador na educagfo poderia produzir, 
devemos eXplorar maneiras de orientar 
a influencia que o computador pode ter 
sobre a aprendizagem e a forma de pen- 
sar da crian9a para diregbes positivas e 
desejdveis. E completa afirmando que 
“em contato com o computador, a cri- 
an9a muito cedo aprende a entender e a 
articular o que e pensamento mecanico 
e o que nao b". “Essa habilidade podera 
Ihe permitir, quando confrontada com 
algum problema, escolher o estilo de 
pensamento mais adequado para resolve- 
Io’\ completa Chaves. 

FORMAS DE UTILIZA^AO DO 
COMPUTADOR NO ENSINO 

Alem do ensino de computagao, que 
engloba desde o manuseio do equipa- %> 
mento atb o conhecimento de lingua- m 



Enquanto ainda se discute a melhor forma de utilizar 
o computador na educagao, muitas escolas jase anteciparam, 
adotando o micro como uma valiosa ferramenta de ensino. 



KTT COMPLETO DE COMUNICAGAO FARA BANCO DE DADOS. 

SO O PRECO t PELA METADE. 



E interessante verificar o impacto 
que as novas tecnologias trazidas 
pelo desenvolvimento da infor- 
matica acabam causando nos 
adultos de hoje em dia, que cresceram e 
foram educados num mundo no qual o 
homem ainda se preparava para alcan9ar 
a lua. Imaginem agora o que o uso con- 
tinuado destes recursos na Educagao 
causara aos jovens que, se agora ja sen- 
tem a presen9a de novas tecnologias, 
sentirSo muito mais ainda diante de um 
“mundo informatizado”,que lhes cerca- 
ra na fase adulta 

OS PROS 

Quando se considera a intersegao des- 
ses dois campos do conhecimento e pre- 
ciso enfocar dois aspectos: a educa9ao 
informatizada e a educa9ao para a infor- 
matiza9ao. 0 primeiro deles e o uso do 
computador no ensino como um recur- 
so, n2o em substitui9ao ao professor, 
mas em auxfiio a este; e o segundo as- 
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pecto, que acontece conseqiientemente, 
e a prepara9ao da crian9a para o mundo 
tecnoldgico com o qual, cada vez mais, 
ela tera contato em sua vida diaria. 

Como destacou o Professor Eduardo 
Chaves, Coordenador do Projeto Edu- 
com — Informatica na Educa9ao, da 
Unicamp, em palestra proferida durante 
o XVIII Congresso Nacional de Informa- 
tica, “deve-se tomar as medidas necessa- 
rias para preparar a sociedade, em espe- 
cial os jovens, para as transforma9oes 
que estao acontecendo e vao ocorrer em 
conseqiiencia da introdu9ao macifa do 
computador na sociedade e na fabrica 
cultural brasileira. E e aqui que a educa- 
9ao tern seu papel”. 

Quanto h critica daqueles que afir- 
mam que existe uma serie de quest5es 
bdsicas na educa9ao, que devem ser 
atendidas prioritariamente antes de se 
pensar em gastos com equipamentos ca- 
ros como os computadores, Chaves diz 
nao discordar de que cond^oes de infra- 
estrutura adequadas para as escolas sao 



de fato prioritirias, porem inclui tam- 
bem a prepara9§o dos alunos para viver 
e atuar profissionalmente no seculo XXI 
como uma prioridade. “Apresentar o 
computador k crian9a, desmistifica-lo, 
mostrar o seu potencial e as suas limita- 
9oes, ensinar ^ crian9a como utiliza-lo e 
domina-lo s3o fun90es que nenhuma es- 
cola pode se furtar hoje. Amanha ja se- 
ra muito tarde”, afirma Chaves. 

O Professor Eduardo Chaves destaca 
ainda o fato de que, “sendo o processo 
de in forma tiza9ao da sociedade irrever- 
sivel, muitas escolas particulares ja estao 
introduzindo o computador no processo 
de ensino e aprendizagem . E o Gover- 
no”, diz ele, “a despeito da gravidade 
dos problemas que afetam a escola pu- 
blica, nao pode ignorar esse fato, o que 
levaria a um aumento da distancia entre 
o ensino oferecido na rede oficial e o 
ministrado nas escolas particulares’". 

Chaves ressalta ainda que o contato 
regrado e orientado da crian9a com o 
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Com o Kit de Comunicagao para Banco 
de Dados da Embracom voce tem livre 
acesso, atraves de seu micro, a 
informagoes como saldo banecirio, roteiros 
de viagens, cotagoes e taxas do mercado, 
previsao do tempo, notici&rios nacionais e 
internacionais e muito mais. 

Por muito menos. 

Basta uma linha telefonica - em casa ou 
no escritbrio. O Kit de Comunicagao para 
Banco de Dados da Embracom contbm um 
MODEM adaptbvel a qualquer micro, uma 
placa de comunicagao que desenvolve 
todas as fungoes da convencional RS 232 



com duas diferengas: custa 3 vezes menos 
e b 3 vezes menor. 

Albm de um diskete de 5 1/4 com 
softwares para 0 Videotexto e Cirandao, 
cabo de interligagao, embalagem especial 
e um manual de instrugoes. 

Faga seu micro render 0 maximo para 
voce: conecte-o aos sistemas de 
Videotexto, Cirandao/Embratel ou outro 
banco de dados que opera a 1 200/75 bps. 

Comparado a qualquer conjunto de 
comunicagao de dados, o Kit completo com 
MODEM da Embracom representa uma 
economia que nao tem comparagao. 



Venha conferir. 

Se voce ja possui o MODEM pode 
adquirir, separadamente, 0 diskete e a 
placa de comunicagao. 
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O COMPUTADOR NA SALA DE AULA 



gens e programa^ao, o computador pode 
ser aplicado na area educacional de ou- 
tras formas. A primeira e mais difundida 
seria o uso do computador na instru^ao 
programada, ou seja, o computador ensi- 
na o aluno atraves do programa que re* 
cebe para isso, funcionando quase que 
como urn audiovisual que leva o estu- 
dante a participar, dando respostas as 
questfles apresentadas no video. No uso 
em simula^Oes, a maquina projeta fend- 
menos que ocorrem naturalmente para 
testar a rea^o do aluno. Uma terceira 
forma de utiliza^ao de computador no 
ensino seria a aprendizagem pela desco- 



berta, como acontece com a linguagem 
LOGO. 

TUTOR OUTUTORADO 



No uso do computador como tutora- 
do, o aluno assume a pos^ao de instru- 
tor da maquina, ou seja, ele proprio 
construe o programa a ser usado no 
ensino. Neste caso, alem de serem neces- 
sarias as no^oes basicas de tecnicas de 
programa^ao, o estudante devera ter do- 
minio sobre a materia a qua! pretende 
"ensinar" ao computador. Porexemplo, 
um aluno que ja tenha aprendido as qua- 
tro operates basicas (adi^ao, subtra^ao, 
multiplica 9 ao e divisao), desde que saiba 
algumas tecnicas de programa^o, pode- 
ra montar um programa para ensinar o 
computador a tutorar outros estudantes 



neste assunto. 0 estudo do Cenifor "Re- 
lato do Estado do Ensino de Informati- 
ca no Brasil" destaca que o modo tuto- 
rado tern tido o apoio de varios pesqui- 



sadores que afirmam que, ensinando ao 
computador o aluno aprende mais pro- 
fundamente do que atraves de softwares 
tutorais. 

O COMPUTADOR NAS 
ESCOLAS PARTICULARES 

Seja qual for a modalidade, no entan- 
to, o que se ve hoje e um numero cada 
vez maior de institui^des de ensino ern- 
pregando micros no processo de aprendi- 
zagem. Os pioneiros nessa pratica, no 
Brasil, foram as Escolas Americanas, 
com um trabalho semelhante ao que e 
desenvolvido nos Estados Unidos, onde 
as crian^as passam a ter contato com o 
computador a partir dos quatro anos, e 
no segundo grau aprendem as primeiras 
linguagens de computagao. 

A seguir, outros estabelecimentos de 
ensino seguiram a mesma triiha. Temos, 
so no Estado de Sao Paulo os Colegios 
Pueri Domus, Bandeirantes, Brasil, Ob- 
jetivo, Liceu Pasteur, entre outros. 

0 Pueri Domus foi um dos precurso- 
rs, pois ja no inicio de 1982 oferecia 
cursos de computa^So como area profis- 
sionalizante do segundo grau. 0 Pueri 
Domus tern cerca de cinco mil alunos, 
do maternal ate o fim do segundo grau, e 
utiliza a linguagem LOGO junto as crian - 
9 as do primeiro grau como curso extracur- 




“Com um software bem concebido, 
o computador tutor pode facil 
e rapidamente acomodar sua apre- 
sentagao a urn grande numero de 
particularidades de cada estudante. ” 



Segundo relatorio do Centro de In- 
formatica Educativa (Cenifor), orgao 
vinculado ao MEC que e responsavel 
pelo projeto Educom-Informatica na 
Educa^ao, com as experiences desenvol- 
vidas pelas institui^Oes de ensino de pri- 
meiro e segundo graus no pais, verifica- 
se que o computador esta sendo usado 
no contexto educacional em tres catego- 
rias: como tutor, como tutorado e como 
ferramenta. 

Nesse ultimo caso, o micro e utiliza- 
do com software especifico para deter- 
minadas areas como Geografia, Matema- 
tica. Geometria etc. 

O computador como tutor funciona 
da seguinte maneira: a maquina faz per- 
guntas sobre determinado assunto. E ao 
responder, o aluno interage com ela, sen- 
do ainda avaliado. Esta avalia^ao vai de- 
terminar a seqiiencia de questoes a ser 
apresentada. Diz o relatdrio do Cenifor 
que “com um software bem concebido, 
o computador tutor pode facil e bem ra- 
pidamente acomodar sua apresenta^ao a 
grande numero de particularidades exis- 
tentes em cada estudante" O texto 
menciona ainda que "no modo tutor, 
o historico do desempenho de um ou 
mais estudantes pode ser coletado e ar- 
mazenado, de forma que e possivel ao 
professor obter relatorios de acompa- 
nhamento sempre que julgar necessa- 
no . 



Software educacional 



Um problema que esti intimamente re- 
lacionado com o uso do microcomputador 
no ensino c que afeta tanto a rede oficial 
uanto a privada, 6 a pouca disponibilida- 
e de software educacional de boa quali- 
dadc. 

A saida para esse impasse, adotada por 
muitas institutes de ensino, 6 o desenvol- 
vimento de software educacional prdprio, 
com a cria^ao muitas vezes de um departa- 
mento especifico para isso. Desse modo, 
pode-sc aliar a experiencia didatica do edu- 
cador com os conhecimcntos do programa- 
dor. 

Entretanto, temos algumas investidas 
particulars bem-sucedidas. £ o caso do 
CEBI, Centro Educacional Brasileiro de In- 
formatics, uma das poucas software-hou- 
ses que se dedica exclusivamente ao desen- 
volvimento de programas voltados para a 
cduca^ao. A uniao de dois fisicos, ambos 
intcressados pela area pedagdgica, resultou 
num trabalho s^rio, recentementc atestado 
pelas duas empresas que entraram na area 
de micros, usando tecnologia MSX, a Gra- 
diente e a Sharp. Como ambos equipamen- 
tos tern a educa^ao como uma de suas 
principals aplicagoes, as empresas procura- 
ram o CEBI na busca de suporte de soft- 
ware para o lan^amento de suas maquinas. 
O contrato acabou sendo fechado com a 
primeira, que esta colocando no mercado 
dez programas de educa 9 ao, todos desen- 
volvido s pelo Centro. 

“Esse mercado de software educacional 
esti em inicio de explosao", afirma Oscar 



Burd, um dos sdcios do CEBI. “Os fabri- 
cantes come$aram a se preocupar com esse 
segmento para aumentar a venda de suas 
maquinas, e naturalmente esta aumentan- 
do a concorrencia, e isso 6 muito bom para 
o consumidor final que sempre vai lucrar 
com a melhoria de qualklade do software". 

O Centro Educacional tern hoje uma 
equipe de dez pessoas fixas c cada progra- 
ma leva em media quatro meses para ser 
desenvolvido, isso num ritmo de trabalho 
de oito horas diarias, c depois ainda sao 
tcstados in loco , nos colegios. No inicio do 
desenvolvimento 6 definida a materia so- 
bre a qual versara o programa e o topico 
especifico, por exemplo, equa^ao de 29 
grau etc.. O segundo ponto 6 encontrar 
um especialista neste tdpico, que e na ver- 
dade quern cria o programa. A16m do pe- 
dagogo, o desenvolvimento de um progra- 
ma educacional envolve um especialista em 
musica, outro na area grafica, alguem que 
entenda de comunica^ao - para determi- 
nar o tipo de linguagem que facilitara a in- 
tera^ao com o aluno etc. - e e claro, os 
analistas. 

Segundo Oscar Burd, o mais import an- 
te em um programa educacional 6 como se 
da a comuni ca^ao entre o usuario e a ma- 
quina. “Temos uma grande preocupa 9 ao 
com as partes afetiva e social que o progra- 
ma vai causar", ressalta Oscar, “se por 
exemplo as crian^as que estao em volta da 
maquina se sentirao motivadasa participar 
opinando etc., esta 6 a nossa preocupa^ao 
basica". 
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Quem tem o UP-1237 da Parks 
nao tem um modem.Tem quatro. 



O Modem UP-1237 4 o quatro em um da Parks 
porque opera em tiansmisstes aismeronas a 
vdoddades de 1200/75 bps ou 300 bps, no padr&o 
CCITT ou no padrtio Bell. 

V6c4 vai enconlraj nesse mexiem outros 
diferendaos que a Parks desen volveu para oferecer o 
m^ximo em tecnologja; 

* dispositive dc rcsposla automAtica incorporado, 
p^tbilitando a forma^o de redes de 
computadores usando comunicacSo via linKas 
tcleffinicas discadas, 

* com Lilagdo manual modan/tdefone a partir de 



chave no painel frontal, permit indo acesso aos 
grandes bancos de dados nacionais e intemadonais. 

* sdeqao de ve^otidade no painel frontal. 

* tacilidade de teste de enlace analdgjco local para 
diagndstico do equipamento. 

* visualiza^o da situac^o de oonngurai^o e dos 
dreuites de interface por meio dc onze indicadores 
luminosos no painel frontal. 

Como voc4 sabc, para a Parks o mdbor t a 
perfei-cao. For isso, voe4 icrA a seguranea de um 
rigorosp eontrerfe de quedidade e garantia de 2 anos. 

Comprove, 
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ricular. Os professores do Colegio estio 
sendo treinados, pois a partir do proxi- 
mo ano a “Introdu^o k Informitica ” 
passa a fazer parte do curriculo da ter- 
ceira serie do primeiro grau em diante. 
Tambem a partir do inicio do proximo 
ano letivo, os micros do Pueri Domus se- 
rio usados nas areas de Quimica e Fisica 
no ensino assistido por computador, 
com software desenvolvido pela Domus 
Informitica, empresa surgida do Nucleo 
de Informitica do colegio. 

0 Colegio Bandeirantes, que abrange 
da quinta i oitava s£rie e possui hoje 
mais de tres mil alunos, desde 1981 ofe- 
rece cursos opcionais das iinguagens As- 
sembler e BASIC, a partir da setima se- 
rie. Desde entio os micros sio usados 
tambem para recapitula^o das aulas, 
com software desenvolvido no prdprio 
Colegio. Ha cerca de dois anos os acio- 
nistas do Coligio criaram a Bandeirantes 
Informitica, para poderem prestar servi- 
90s a terceiros. Alim de software edu- 
cacional e de gerenciamento escolar, a 
empresa tambim atua na irea de hard- 
ware, desenvolvendo interfaces para li- 
ga9§o de micros a equipamentos usados 
nos laboratdrios da escola. 

0 Colegio Objetivo abrange do ma- 
ternal ati o cursinho pre-vestibular e 
possui oito unidades s6 em Sao Paulo, 
todas com microcomputadores que sio 
usados em sala de aula, como recurso 
auxiliar para o professor, e nos laborato- 
ries, onde os alunos tern acesso atraves 
da maquina k materia dada em aula. 
Alem disso, o curso bisico de informati- 
ca i obrigatdrio na primeira serie do se- 
gundo grau. 0 software utilizado e total- 
mente desenvolvido no Departamento 
de Anilise e Desenvolvimento do pro- 
prio Colegio, com base nos pedidos dos 
professores. Esse departamento e com- 
posto por ticnicos e pedagogos. O Obje- 
tivo possui ainda um curso ticnico de 
processamento de dados, com dura9io 
de tres anos, durante os quais sao ensi- 
nadas as Iinguagens BASIC, Assembler, 
COBOL e Fortran. 

O COMPUTADOR NA REDE 
OFICIAL DE ENSINO 

As discussdes a nivel de governo so- 
bre o uso do computador no ensino ti- 
veram inicio em 1981 , quando institui- 
95es como MEC, CNPq, Secretaria Es- 
pecial de Informitica e a Finep realiza- 
ram seminirios para debater o assunto. 
No final daquele ano, foi aprovado um 
documento cujo titulo era “Subsidios 
para a implanta9io do Programa de In- 
formitica na Educa9io”. 

Em 1983 i entio criada uma Comis- 
s 5 o Especial de Informitica na Educa- 
9io, ligada i SEI. A idiia inicial foi, con- 
forme sugestifo dos participantes dos I e 



II Seminirios Nacionais de Informitica 
na Educa9io - realizados respectiva- 
mente em 1981 e 1982 - de se criar 
centros pilotos em universidades para 
ue estes promovessem atividades volta- 
as para a aplica9io das tecnologias da 
informitica na educa9io. Para tanto, 6 
elaborado um projeto denominado Edu- 
com - Informitica na Educa9fo, cujo 
objetivo i o estimulo ao desenvolvimen- 
to da pesquisa multidisciplinar voltada 
para a aplicagio das tecnologias de in- 
formitica no processo de ensino-apren- 
dizagem. Vinte e seis institui96es de en- 
sino superior encaminharam propostas 



sendo dada enfase k introdu9io do com 
putador no ensino de matemitica no 
primeiro e segundo grau das escolas pu- 
blicas, com estudo dos aspectos s6cio- 
politicos e culturais dessa implanta9ao. 
0 projeto da Universidade de Pernambu- 
co preve ainda a cria9io de uma rede lo- 
cal de micros de baixo custo para o ensi- 
no. 

0 projeto da Universidade do Rio de 
Janeiro enfatiza o uso do computador 
no segundo grau nas ireas de matemiti- 
ca eciencias, e preve o desenvolvimento, 
a nivel de hardware, de duas esta50es: 
uma para a elabora9io de material peda- 




Em seu primeiro ano, a 
preocupagao basica do 
EDUCOM foi com a preparagao 
dos professores que irao 
implantar o micro nas escolas. 



para a implanta9io dos centros pilotos 
em seus campus e cinco foram selecio- 
nadas. Sio as Universidades Federais de 
Minas Gerais, Pernambuco, Rio Grande 
do Sul, Rio de Janeiro e Universidade de 
Campinas. A Coordena9io Ticnica do 
Projeto, i nivel federal, foi atribuida a 
Funda9io Centro Brasileiro de TV Edu- 
cativa (Funteve) que criou o Cenifor — 
Centro de Informitica Educativa 
para cuidar especificamente do Educom. 

O Educom foi implantado efetiva- 
mente em meados de 1984 e seu primei- 
ro ano se encerraria em julho desse ano, 
mas foi estendido ate dezembro para co- 
incidir com o ano Fiscal. Durante este 
primeiro ano, a preocupa9io bisica dos 
centros pilotos foi com a prepara9§o dos 
professores que participant) da implan- 
ta9io do computador nas escolas da re- 
de oficial. Em outubro congou a ser 
feita uma avalia9io dos primeiros doze 
meses do projeto e a aprecia9io dos pia- 
nos para o segundo ano. 

Cada um dos centros pilotos tern seu 
prdprio projeto dentro do Educom. Na 
Universidade Federal de Minas, por 
exemplo, foram criados quatro labora- 
tririos que se dedicam especificamente 
ao desenvolvimento de recursos huma- 
nos para a implanta9§o da Informitica 
no ensino; ao desenvolvimento de soft- 
ware; i aplica9io desses programas; e a 
serves gerais como a cria^o de lingua- 
gens de comunica9io para a intera9§o 
entre o professor e o computador na ela- 
bora9io de material de instru9fo. 

Na Universidade de Pernambuco esti 



gdgico pelo professor e outra propria- 
mente voltada para o ensino, alim da 
elabora9io de software educacional e 
tambim da prepa^io de recursos hu- 
manos. 

Na Universidade do Rio Grande do 
Sul, o Educom tern se dedicado ao de- 
senvolvimento de sistemas e a pritica do 
uso de micros no processo de ensino 
com estudo dos efeitos dessa implanta- 
9§o. Em uma escola da periferia de Por- 
to Alegre foram instalados microcompu- 
tadores para o trabalho junto a crian9as 
repetentes da primeira s^rie do primeiro 
grau e, segundo relato da Professora Lu- 
cila Costi Santarosa, Coordenadora do 
Projeto naquela Universidade, os resulta- 
dos tern sido surpreendentes em termos 
de progresso desses alunos. 

Na Universidade de Campinas, a base 
do Educom e a filosofia LOGO. A Uni- 
camp foi uma das primeiras universida- 
des a estudar e colocar em prdtica a lin- 
guagem LOGO, adequando-a a realidade 
brasileira. Neste primeiro ano do Edu- 
com, os professores foram treinados e 
desenvolveram projetos para o uso do 
computador com as crian9as. A Uni- 
camp adquiriu nesse segundo semestre 
12 micros que ser 5 o repassados para tres 
escolas estaduais, onde tera inicio a pri- 
tica do uso dos micros no ensino da rede 
oficial. 

& 
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O APPLE DA DIGITUS 



A DIGITUS langa o DGT-AR um 
microcomputador pessoal totalmente 
compatfvel em hardware e software com 
a linha APPLE II PLUS e seus similares. 

O DGT-AP e um micro versatil. pois, alem 
de Ihe ser util no trabalho, voce podera 
tambem usa-lo no lazer e nos estudos. 

9 

Devido ao grande numero de programas 
desenvolvidos para a linha APPLE, o DGT- 
AP tern ampla aplicagao tanto para as 
pequenas e medias empresas como para 
os executivos e os profissionais liberais. 



fvp? Tixi TTI 1 
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Projetado para atender e acompanhar o 
desenvolvimento do usuario, o DGT-AP 
possui estrutura para aceitar futuras 
expansoes, crescendo de acordo com 
suas necessidades. 

0 DGT-AP tern todas as caracterlsticas 
basicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numerico reduzido incorporado a CPU. 

Alem de todas as placas disponiveis para 
expansao, voce tern ainda a garantia da 
tecnologia DIGITUS. 

Conhega o DGT-AP nos enderegos abaixo 
e nos revendedores autorizados DIGITUS. 



MATRIZ: Rua GSvea, 150 • Jardim America • Fone: (031) 332.8300 - Telex: 3352 • 30430 • Belo Horizonte • MG 
RIO DE JANEIRO: Rua Barata Ribeiro. 391 si 404 ■ Copacabana • Fone: (021) 257.2960 
SAO PAULO: Rua Faxina, 47 • Centro • Fone: (011) 572.0137 



32 





Na continuagao deste artigo, o autor descreve as areas da ROM relativas 
ao uso de drives, cartuchos, E/S e a estrutura da memoria RAM. 



A memoria do Color(ll) 



Celso Bressan 



N a primeira parte deste artigo, 
publicado em MICRO SISTE- 
MAS n ? 50, vimos as variaveis 
do sistema e o mapa da memo- 
ria da ROM do BASIC e do Extented 
Color BASIC. Nesta segunda, e ultima 
parte, veremos as informa$6es sobre as 
mem6rias ROM de disco e cartucho, as 
localiza^Oes de entrada e saida e, como 
foi prometido, as possibilidades de ex- 
pansao da memdria do Color Computer. 

ROM DE DISCO 

Esta ROM e opcional e vem junto 
com o controlador de disco. Ocupa 
aproximadamente seis Kb, desde o ende- 
re^o COOO ate D800 e realiza todo o tra- 
balho com disquetes. 



BYTE 


CONTEUDO 


COOO 


Identificagao *‘DK” 


C004 


Endereco da rotina de entra- 
da e saida (DSKCON) 


C006 


Endereco da tabela de para- 
metros para opera^ao 


COO 8 


Imcializa<;ao do disco 


C0D4 


Warmstart de disco 


C17F 


Tabela do vocabulario de co- 
mandos 


C1DB 


Tabela de endere^os dos co- 
ma ndos 


C201 


Tabela do vocabulario de 
fun^oes 


C214 


Tabela de endere^os das 
fun9oes 


C24D 


Processamento de erros 


C278 


Tabela de erros de disco 


C468 


OPEN de disco 


C6C2 


KILL 


C8A4 


Processa o nome do arquivo 



BYTE 


CONTEUDO 


C932 


SAVE 


C98B 


MERGE 


C99A 


LOAD 


CA3B 


Fecha um arquivo 


CBCF 


DIR 


CD1 A 


CVN 


CD28 


MKNS 


CD36 


LOC 


CD5B 


LOF 


CDCO 


FREE 


CDE9 


DRIVE 


CE8C 


SAVEM 


CEE5 


LOADM 


CF3F 


RENAME 


CF8A 


WRITE 


CFEO 


FIELD 


D025 


RSET 


DO 26 


LSET 


DO 80 


FILES 


D146 


UNLOAD 


D175 


BACKUP 


D2CC 


COPY 


D3FF 


DSKJ$ 


D474 


DSKOS 


D4AB 


DSKINI 


D65B 


VERIFY 


D66C 


DSKCON 


D6C5 


Restore 


D705 


L£ ou Grava um setor 



CARTUCHO ( ROM-PACK OU 
CARTRIDGE) 

Ocupa exatamente as mesmas posi- 
9$es do disco, desde COOO, podendo, 
porem, ir ate FEFF. Portanto, o cartu- 
cho n2o pode ser usado com disco e 
vice-versa. Uma caracteristica interes- 
sante destas ROM: elas permitem im- 
plementar qualquer especie de programa 
que pode inclusive ser gravado em casa 
com equipamento adequado. 



CONTROLES DE ENTRADA 
E SAIDA (INPUT/OUTPUT) 



Sao constituidos por 256 bytes que 
y&o de FF00 ate FFFF, e realizam basi- 
camente tres tipos de tarefas: 



BYTE 


CONTEUDO 


FF00 


Entrada e saida fisica 


FF00 


Bit 0: Linha 1 do teclado e 
botao do joystick direito 
Bit 1 : Linha 2 do teclado e 
botao do joystick esquerdo 
Bits 2-6: Linhas 3-7 do te- 
clado 

Bit 7: Compara^ao do joys- 
tick 


FF01 


Bit 0: Sincronia horizontal 
de 63,5 ms 

Bit 1: Entrada de interrup^ao 
Bit 2: Normaimente 1 
Bit 3: Seleciona byte menos 
significativo do MUX 
Bits 4 -5: Sempre 1 
Bit 6: Nao usado 
Bit 7: Interrup 9 ao de sincro- 
nia horizontal 


FF02 


Bits 0 -7 : Colunas 1 -8 do te- 
clado 


FF03 


Bit 0: Sincroma de 16,67 ms 
Bit 1 : Entrada de interrupt© 
Bit 2 : Normaimente 1 
Bit 3: Seleciona byte mais 
significativo do MUX 
Bits 4-5 : Sempre 1 
Bit 6: Nao usado 
Bit 7: Interrupt© de sincro- 
nia 


FF20 


Bit 0: Entrada de cassete 
Bit 1 : Saida de RS 232 
Bits 2-7:6 bits do conversor 
Digital /Analogico 


FF21 


Bit 0: Entrada do status do 
RS 232 
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BYTE 


CONTEUDO 


. 


Bit 1: Entrada de interrupt© 




Bit 2: Normaimente 1 

Bit 3 : Motor do cassete 

Bits 4-5 : Sempre 1 

Bit 6: Nao usado 

Bit 7 : Interrupt do status 


FF22 


Bit 0: Entrada de dados RS 
232 

Bit 1 : Saida de som de 1 bit 
Bit 2: 

Bit 3: Controle de video (0 - 
Color Set 0 ;1 - Color Set 1) 
Bits 4 -6 : Modo Grafico 
Bit 7:0- Alfanum&ico; 1 - 
Grafico 


FF23 


Bit 0: Controle do cartucho 
Bit 1 : Entrada de interrupt© 
Bit 2: Normaimente 1 
Bit 3: Habilita som de 6 bits 
pelo conversor D/ A 
Bits 4-5 : Sempre 1 
Bit 6: Nao usado 
Bit 7: Interrupt© do cartu- 
cho 


FF40 


Bit 0: Seleciona Drive 0 
Bit 1 : Seleciona Drive 1 
Bit 2: Seleciona Drive 2 
Bit 3: Motor do disco 
Bit 4: Precomp 
Bit 5 : Dupla densidade 
Bit 6 : Seleciona Drive 3 
Bit 7 : Habilita parada 


FF48 


Status do disco 


FF49 


Numero da trilha 


FF4A 


Numero do setor 


FF4B 


Dado a ser gravado ou lido 


FFC0 


Controle daapresentaQaogra- 
fica no vi'deo: sao pares de 
chaves que so aceitam grava- 
cao: a do endere 9 o par desli- 
ga e a do impar Iiga a fun- 
cSo que implementam 
Sao J pares que designam o 
modo de apresentat© grafi- 
ca no video 


FFC0-FFC5 


FFC6-FFD3 


Sao 7 pares que representam 
um endereco de memoria o ri- 
de estao as paginas a serem 
most ra das no video. Deve ser 
multiplo de 512 bytes 


FFD4-FFD5 £ 1 par que designa a pagina 
n 


FFD6-FFD9 Sao 2 pares que indicam a 
velocidade do processador 


FFDA-FFDDIdem, para o tamanho da me- 
moria 


FFDE-FFDF £ 1 par que seleciona o ban- 
co de memoria: ou ROM ou 
RAM de 64 Kb 


FFF2 


Conjunto de 8 endere^os que 
sao os vetores de intemip^ao 


FFF2 


Interrupgao por software 3 
(SW13) 


FFF4 


Interrup^ao por software 2 
(SWI2) 


FFF6 


Fast Interrupt Request 
(FIRQ) 


FFF8 


Interrupt Request (IRQ) 


FFFA 


Interrup^ao por software 
(SWI1) 


FFFC 


Intemipsao nao mascaravel 
(NMI) 


FFFE 


Reset 



USUARIOS DE DISCO 

Todas as describes feitas ate agora 
s2o validas somente para os sistemas que 
n3o possuem unidades de disco. Para os 
outros, a unica modifica^So que ocorre 
e aquela realizada com a inser^So entre 




a Area de Video e a de Grdficos de Alta 
Resolu^a’o, de uma Area para Manipula- 
te de Disco, compreendendo: 



BYTES 


CONTEUDO 


600-7 FF 


2 buffers de 256 bytes 
cada, para entradas e saida s 


800-BFF 


Area de uso do Disk BASIC 



Se durante a executo de urn progra- 
ma forem abertos mais do que dois ar- 
quivos, ao mesmo tempo, sera necessa- 
rio fazer-se uma pre-aloca^Jo de 
buffers adicionais de 281 bytes para 
cada arquivo, deslocando, portanto, 
mais ainda a Area de Graficos. 

expansAo da memoria 

Ate agora, vimos que o usuirio pode 
dispor de ate um maximo de 32 Kb de 
memoria RAM, pois do total possivel 
admitido pelo endere^amento do 6809, 
64 Kb, metade esta reservada para as 
ROM do BASIC, Extended BASIC, etc. 
Sabemos, entretanto, que e possivel 
con tar com mais memoria. O que acon- 
tece entao? 

Vamos por partes. 

De uma olhada na figura 1 . Veja que 
existe um banco de memoria que vai de 
0 ate 32 Kb, a seguir, outro banco com 
as ROM, de 32 ate 64 Kb, e ao lado 
deste, outro banco, agora de RAM, que 
vai tambem de 32 ate 64 Kb. Aparente- 
mente existe uma incoerencia, pois dois 
pedals diferentes de memoria s3o aces- 
sados pelo mesmo endere^o. Voltando 
atras, e consultando os controles em 
FFCO-FFDF, poderemos estabelecer a 
necessaria diferencia^^o. Existe um de- 
les, precisamente o par FFDE-FFDF, 
que informa qual o banco que esta em 
uso. Se for o primeiro, todas as referen- 
ces de endere90 entre 32 e 64 Kb v2o 
para as ROM; se for o segundo, sera 
usada a RAM. 

Portanto, jd e possivel utilizar-se 
ate 64 Kb de RAM sem ambigiiidades. 




CP500/M,® 
uma grande 
decisao 
para homens 
quetomam 
decisdes. 

O CP 500/M 80 agora tambem 
e compativel com o CP/M, o Sistema 
mais difundido no mundo. Isso 
significa que, somando o tradicional 
DOS 500 com o CP/M, voce 
passa a dispor da maior biblioteca de 
programas aplicalivos do 
mercado. E voce poderd tirar vantagens 
de programas como Calc Star*, 
dBase II*. Word Star* e muitos outros, 
que vdo agilizar tanto 
sua vida quanto a de sua empresa. 
Para voce, executivo, 
o CP 500/M 80 e uma poderosa 
ferramenta de auxilio a 
decisdes gerenciais, com programas 
especificos em sua drea de 
atua^do, como andlise de fluxo de caixa, 
controles de compras/custos/ 
estoques e administrate financeira. 
Como resultado final, sua 
empresa terd grandes ganhos de 
produtividade e eficidncia. 

CP 500/M 80 , um grande passo na 
informatica com a Qualidade CP 
e a Tecnologia Prolbgica. 



Caracteristicas 


Sistemas Operacionais Inclusos 


Mcm6ria RAM 
Mem6ria ROM 
Compatibilidade 
Video 


SO-08 
64 Kbytes 
2 Kbytes 
CP/M* 

80 colunas 
por 24 linhas 


DOS 500 
48 Kbytes 
16 Kbytes 
TRS-DOS 
64 ou 32 
colunas por 
16 linhas 


Video 12" f6sforo verde com controle de 
intensidade 

Teclado proftssional capacitivo com num^rico 
reduzido 

Interface para impressora paralela 

Opera com 1 ou 2 drives de face simples ou dupla 

Accsso a toda a Rede Nacional de TelemAtica. 

atravts de Interface serial padr&o RS-232 C 

(opcional) 



* Marcas Registradas 




COMPUTADORES PESSOAlS 



TECNOLOGIA M* 
PROtOGlCA ■■■ 
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ROM para a RAM, desabilitando aquela 
em seguida. Esta tarefa pode ser feita 
logo apos ligado o micro, para deixa-lo 
pronto para uso normal. Os procedimen- 
tos que este programa executa s2o os 
seguintes: le urn byte, a partir de 8000 
(hexadecimal); habilita a RAM e arma- 



nTIENCnO: 

EMPRESAS 
SOFTWARE-HOUSES 
CENTROS DE INFORMACAO 

NIIO LEinH ESTE nNUNCIO SE 
QUISEREM CONTINURR PURRS 

RDDRESS • 

VIDEO 

COMPUTER 

CONNECTION 

lEmcrin em videocrssete 

-tCURSDS E TREINRMENTOS 
-^PRLESTRRS ILUSTRRDRS 
-*VT"S IN3TITUCI0NRIS 
MEMENTOS 



EDICPO COMPUTADORIZADA 
COM OS MAIS MODFRNQS 
RECURSOS DE ANIMAQAO 



DIGITAL. 

IDEAL PARA TREINAMENTOS 
CONSTANTES EM EMPRESAS 
OU CURSOS A DISTANCIA. 

METODO VIDEOTERCH « * 

RDDRESS* 

Video Computer Connection 
CENTRAL DE INFORMAQOES 

Oil 211-5340 * Oil 212-0370 



zena este byte, tambem a partir de 8000 
e habilita novamente a ROM, lendo o 
proximo byte, e assim por diante, ate o 
fim da memoria. 

Importantes concludes podem ser 
tiradas. Primeiro, nem todos os 64 
Kb podem ser usados, pois no minimo 
16 Kb foram gastos pelo BASIC. Segun- 
do, a mem6ria n§o e continua, indo 
de 0-32 Kb, e depois de C000 ate o 
fim (sem disco nem cartucho), muito 
embora este problema ja possa ser con- 
tornado por outro programa que trans- 
porte todo o BASIC para a parte mais 
superior da memoria, deixando mais 
ou menos 40 Kb livres com graficos, 
47 Kb sem estes e 55 Kb se n<fo preci- 
sarmos do Extended BASIC. Terceiro, 
toda vez que desligarmos o micro de- 
vemos reinicializa-lo. Vale a pena? De- 
pende das necessidades,ja que 64 Kb per- 
mitem o uso de outras linguagens como 
por exemplo Pascal, C, FORTRAN e 
outras, bem como os poderosissimos 
sistemas operacionais OS-9 e FLEX. 

As amplia^Oes de memoria acima de 
64 Kb, sempre realizadas em banco de 
32 Kb, funcionam de forma semelhante. 
De uma olhada na figura 2. Foram colo- 
cados mais dois bancos de 32 Kb, tota- 
lizando uma memoria de 128 Kb (com 
a ROM fica quase 160 Kb), porem ago- 
ra, os endere^os de cada banco vSo de 
0 ate 32 Kb, porque, do contrario, teria- 
mos que carregar o BASIC em cada urn 
deles. Por isso precisamos estar bem 
conscientes de uma coisa: o 6809 n5o 
endere^a mais do que 64 Kb. Portanto, 
usando um banco ou outro qualquer, 
a combina^ao deles n5o pode ultrapassar 
esse limite (este raciocinio e igualmente 
valido para qualquer micro de 8 ou 16 
bits). 



O uso de 128 Kb, embora n3o con- 
tinuo, nos leva a um outro nivel de tra- 
balho, qual seja, a possibilidade de en- 
volvimento com ate tres programas di- 
ferentes ou iguais, ao mesmo tempo, 
bastando, para isto, selecionar determi- 
nadas chaves que est£o contidas nos by- 
tes de controle, desde FFOO ate FFBF. 
Numa elabora^So mais complexa, pode- 
ria ser montado um programa monitor 
que simularia a existencia de 1 28 Kb pa- 
ra um unico programa, fazendo o ne- 
cessario chaveamento. Isto certamente 
acarretara atrasos no processamento, 
porem, dependendo da aplica^o, este 
problema poderd ser ate ignorado. Quern 
sabe se no futuro nSo sera possivel 
executar tres programas, um para cada 
usuario diferente, remotamente? Tudo e 
possivel com este ilimitado micro! 

Finalmente, ainda nos resta conside- 
rar que, em principio, nSo ha limita^o 
fisica de expansSo de memoria. Contu- 
do, a partir de um determinado ponto, 
os increments come^am a se tornar 
muito caros e a logica eletronica para 
controle fica t£o lenta, que e mais 
vantajoso o uso de um acionador de 
discos flexiveis ou mesmo de unidades 
de disco Winchester, de alta capacidade 
e rapidez, ja dispomveis para o Color. 

Enfim, n2o custa repetir, temos em 
nossas m3os um instrument sem fron- 
teiras! 



Cel so Bressan 6 formado em Engenharia Ele- 
trdnica e possui o curso de pds-graduapao em 
Sistemas de Informacao pe/a UF RGS. Traba- 
I ha em processamento de dados, desde 1969 , 
e atua/mente 6 Ana/ista de Sistemas na Funda- 
gao Metropolitan de Planejamento, em Porto 
Alegre. 
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CONTINUAMOS RENOVANDO 

A mais completa linha de Software para o 
Color Computer CP. 400, Color 64, MX-1600 
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MICROMAQ - Rua Sete de Setembrq 92 • Lj. 106 - Tel.: (021) 222-6088 CEP 20050 

PR0M0QA0 DE FERIAS 

Fitas com dois programas 

Selegao de alguns dos melhores "games” agrupados dois a dois. 



• Zaxxon/Buzzard bait 

• Draconian/8 ball 

• Speed racer/Bag*man 

• Galagon/Demon seed 

• Space wreck/Sea dragon 

• Sanctum/R-ball 

• Sea quest/Quix 

• Calixto island/Pooyan 



• Lunar rover/Devil assault 

• Time patrol/Moon shuttle 

• Canyon climb/Fly tiger 

• Decathlon/Cashman 

- Color car/Kron 

- Rat/The king 

- Cristal/Doodle bug 
•Time bandit’s/Tut's tomb 



ATENQA0: 



PR.017 • Time fighter/Moon hopper 
PR.018 • Mudpies/Death trap 
PR.019 • Crash/Ranger 
PR.020 - Color panik/Shenanigans 

• qualquer fita acima 40.000. 

■ as fitas acima nao sofrem desconto 
de qualquer espScie. 



Solicite nosso catalogo com mais de 300 p rodutos 

REC0RDISTAS DE VENDAGEM - 1985 



WORLD'S OF FLIGHT • Simulator de vto 

CYRUS ■ Para amantes do jogo de xadrez 

ZAXX0N • Enfrente os perigos de uma platalorma espacial 

CRISTAL • Sensacional • estilo PacMan em 3D 

SAILOR • Derrote o Brutus e conquiste o coragto da Olivia. 3 teias. 9 niveis de 

dificuidade 

SPEED RACER • Corrida de caros (tipo flipper) 

DRAC0NIA - Salve os prisioneiros do espago e fuja do dragto 
BUZZARD BAIT - Ataque os pdssaros com sua langa 
GALAG0N • Itontico ao Fantastic do flipper 
QUIX • Iddntico ao do flipper. Preencha 75% da tela sem ser atmgido 
DECATHLON • 10 provas olimpicas 

SPACE WRECK • Defenda sua base espacial to ataque inimigo. 3D com naves 
estilizadas 



Para programas em disco, acrescer 
60.000 por programa (Disco + Embalagem) 



PD001 CALIXTO • Ajude o arquedlogo (Prof. Lagarto) a recuperai o tesouro 
PD003 SEA QUEST • Recupere o tesouro perdido 
PD004 BLACK SANCTUM • Exorcize o demdmo 
PJ023 DEMON SEED • Destrua pdssaros. sementes e naves 
E002F MUSICA 2 • Para compor, arranjar. copiar partituras etc 
PU008F SUPER SCREEN • Aumenta o tamanho da tela (52 colunas. 24 linhas). Acrescenta 
fungdes diversas 

PA002F ELITE CALC • Piamlha eletrdmca. Ate 255 linhas e colunas. Manipula textos. numeros 
etc. Emile graficos e permite ordenar colunas e linhas. Manual em portuguds 
PL001F EDTASM • Linguagem Assembler 
PL005F COLOR LOGO • Linguagem educativa logo 

PA007D PRO COLOR FILE • 0 melhor banco de dados jd criado para o color. Somente em 
disco (prego mcluso) 

PA006F TIMS/SIGA • Banco de dados que permite criar atd 8 campos. Manual em port 



A GRANDE SENSAQAO 

COLOR MAX (modulo de alta-resolugao)- Reproduz no color com 64K a perfor- 
mance grafica apresentada pelo Macintosh, imitando as funcoes do MacPaint. 
Utiliza tecnicas modemas de programa?ao tipo “Icons” e “Pulldown Menus”. 
Composto de placa de Hardware e programa em fita ou disco E001F 

(Para calculi) de 0RTN. considerar a data da postagem) E001 D 



14 0RTN 

15 0RTN 



• J0G0S SO PARA DISCO 
(prego c/disco incluso) 



0UTR0S PROGRAMAS 



i EAGLE • Simula um vto espacial em que voc£ deve aportar e levantar vto da lua 
ou de marte Manual em inglSs. Requer 2 Joysticks 
i THE FACTORY • Crie a linha de montagem de uma ftorica e teste a sua merndna 
I SANDS OF EGYPT • Descobnr o mistdno da tumba do Farao 
I CRIME • Desvende o mistdrio de um crime. Afmal. vocd 6 o detetive 
I MAJOR ISTAR • Viajanto atravds das cidades submarinas do sdculo21, vocd deverd 
desvendar o mistdrio de Trident 
i SAM SLEUTH - Desvende o mistdrio de um desaparecimento 
STAR TRADER • Mercador das galdxias 

• GRAFICOS 

ART GRAF • Cnado pela Micromaq. Necessita64K. Trabalha com 8 teias simultdneas 
na memdria no mais aito modo grdfico PG004F 

PG004D 

VIZIDRAW • Muito potente para desenhar. Acompanha o Vizidump, que leva suas 
teias para a impressora PG005D 

ART GALERY • Rotente gerador de grdficos e teias de desenho PG002F 

• SOM. SJNTETIZAQAO 

COLOR QUAVER • Para compor. arranjar. copiar partituras, monta espectro, cria 



TABELA PERIODICA DEQUiMICA 

MAPA MUNDI • Desenha na tela Mapa Mundi, Ortogrdfico ou Polar 



Desconto 



• APUCATIVOSRfFITA 

WRITER II • Tela de atd 85 colunas, “Window" do texto com a forma final. Permite 
insergdo de caracteres em portuguds (na imp.). Mais de 100 fungdes PA001F 
MALA POSTAL (I) • Totalmente criado no Brasil. Emite etiqueta, relatdrio e lista 
telefdnica PA013F 

ASTR0L0GIA • Gerador de mapas astroldgicos PA017F 

HANDY MAN • Auxiliar no cdlculo de custos de obras civis, cdlculo de Areas, 
coberturas etc. PA030F 

STATGRAF • Estatistica. Gera grdficos com regressAo linear, mddias, desvios etc. 

PA021F 

• APLICATIV0S P/DISCO 

VIP WRITER • Idem ao PA001F PA001D 

VIP DATABASE • Banco de dados PA015D 

MATHMENU • Sistema para auxilio no estudo da matemdtica PA029D 

DYNACALC - Ptanilha eletrdmca. Gera ardficos em alta resolugdo PA011D 
ELCIRCAN • Analisador de circuitos eldtricos PA028D 

STATGRAF • Idem ao PA021F PA021D 

• UTILITARIOS EM FITA 

VDOS - Simula o sistema operacional de disco em fita PU013F 

FAST TAPE • Dobra a velocidade de leitura e gravagdo para cassete PU014F 
COLOR KIT • Ferramenta muito potente para trabalho com a memdria. Acrescenta 
mais 30 fungdes ao Color. PU019F 

• UTILITARIOS EM DISCO 

ADOS • Sistema de DOS. 0 mais utilizado atualmente. Cria novas fungdes PU001D 
C BASIC COMPILER • 0 melhor compilador ate o momenta Compila tudo E003D 
COLOR KIT - Idem PU019F PU019D 

VIP DISK ZAP - Altera todo o conteudo de um disco PU020D 

WHERE IS IT’ • Gerenciador de diretdrios. Autoexplicativo PU018D 

Dwsejo receber o(t) s«oulnta(s) programars), pekXs) qual(is) pagarei a quanlla de Crt 



at6 150.000 
de 151.000 £ 250.000 
de 251.000 acima 



sem desconto 
5% 
10 % 



Para tal. estou enviando ( ) cheque ( J Vale foetal A MICROMAO UDA. 
Rua Sete de Setombro, 92 • Lj. 106 CEP 20060 Rio de Janeiro RJ. 
Oesoesas de axre*o incluldas 



ATENQAO: So serao aceitos os pedidos com postagem ate 31/01/86. 





iniciantG 



Demonstrar algumas rotinas basicas 
para tragar graficos, adaptando-as a 
varios micros e a proposta deste artigo. 

Pierluigi Piazzi 



Graficos simples 



H alley (o astronomo), sempre foi 
uma das pessoas que mais inve- 
ja me causou. N 2 o pelo fato de 
ter seu nome eternizado num 
cometa (afinal, o da minha famflia esti 
em nada menos que duas crateras da 
lua!), mas pelo fato de ter vivido uma 
das trans^Ces mais importantes da his* 
toria intelectual da humanidade: a Era 
de Newton. 

A revolu^So que Isaac Newton pro- 
vocou no mundo da ciencia e do ddculo 
foi lio gigantesca, tSo radical e tffo defi- 
nitiva que so poderia ser comparada a 
que Einstein produziu no comedo do 
nosso s^culo. Isto, na irea da Ciencia, 
pois no que se re fere ao Calculo tivemos 
que esperar a segunda metade deste 
seculo para que surgisse o computador. 
0 computador pessoal, entsfo, so surgiu 
nos ultimos anos e esta produzindo mu- 
dan 9 as intelectuais t£o grandes que 
podem ser comparadas is que os con- 
temporaneos de Halley sofreram. 

Por exemplo, ha menos de 20 anos 
(que afinal de contas n3o e tanto tempo 
assim), eu dava aula de regua de calculo 
(hoje, pe<?a de museu!). Diga-se de pas- 
sagem que ainda uso regua de calculo 
e o fato dela n3o fomecer virgula deci- 
mal me obrigou a desenvolver uma tSo 
grande habilidade em estimar ordens de 
grandeza que causa inveja ate hoje nos 
meus alunos (t£o “digital izados”, coita- 
dos). 

Nesta epoca, eu trabalhava num la- 
boratory de pesquisa e era obrigado a 
fazer diariamente cdlculos de alta 
precis^o. Para espanto dos leitores mais 



jovens, comunico que as maquinas de 
calcular daquela epoca so somavam e 
subtraiam! 

A multiplica^^o era um processo 
penoso de multiplas adi 9 < 3 es;e a divisSo, 
entSo, nem se fala! Era mais rapido usar 
uma tabua de logaritmos (outra coisa, 
utilissima, que se tomou pe 9 a de 
museu em menos de uma gera 9 ao). 

A S 0 IU 920 era o uso de mais uma 
pe 9 a de museu: a heroica FACIT a mani- 
vela! Sim senhor, maquina de calcular 
a manivela, girando para frente e para 
tras, esperando o toque de um sininho 
que avisava quando o resto era menor 
que o divisor. 

Nao preciso dizer com que alegria 
foram recebidas as primeiras maquinas 
eletronicas, que faziam ate divisOes e 
determinavam automaticamente (mara- 
vilha suprema!) a posi 92 o da virgula. A 
regua de calculo, porem, so foi definiti- 
vamente aposentada quando surgiram as 
calculadoras ditas “cientificas”, nas 
quais podiam ser resolvidas equa 9 < 3 es 
trigonometricas e exponenciais. Ironi- 
camente, estas primeiras maquinas eram 
chamadas de “reguas de calculos eletro- 
nicas..’ 

O passo seguinte foi o surgimento das 
calculadoras programaveis, verdadeiros 
microcomputadores portateis. Computa- 
dores rudimentares, e verdade, mas 
vanguarda da revolu 9 §o que viria um 
pouco mais tarde: os micros pessoais. 

A famosa HP-41 foi um impacto. 
Afinal de contas, nao so armazenava 
programas, como tinha ainda um dis- 
play alfanumerico. 



Puxa vida! Sabe la como e importan- 
te voce escrever seu prdprio nome e 
ve-lo reproduzido eletronicamente?! 



A gloria final, porem, so aconteceu 
quando os processadores eletronicos fo- 
ram ligados is telas de TV. N 2 o so o 
usudrio de um Apple, TRS-80 ou Sin- 
clair podia escrever como tambem de- 
senhar, visual izando atraves de graficos 
as fun 95 es matematicas (ate este mo- 
mento meras abstra 9 ( 5 es ocultas no 
meandro dos circuitos). 

Lembro-me ate hoje a alegria com a 

S jal vi funcionar um programinha que 
aborei num TK 82C (sem SLOW!), 
que mostrava os pulos de uma bolinha 
contra o ch 2 o, em fun 92 o do coeficien- 
te de restitu^So (este programa, alias, 
foi publicado na MICRO SISTEMAS 
n? 12, em setembro de 1982). 

Produzir um grafico, porem, n 2 o e 
uma tarefa muito simples pois nenhum 
fabricante de computadores de pequeno 
porte preocupou-se ate hoje em elabo- 
rar um sistema operacional com grandes 
facilidades, neste sentido. 

Digamos, por exemplo, que o leitor 
deseja produzir o classico grafico das 
oscila 9 < 5 es amortecidas. Neste caso, voce 
tern uma mola (como a da suspensSo de 
um automovel) ligada a um amortece- 
dor e quer estudar as amplitudes das osr 
cila 95 es que o sistema sofre, para cima 
e para baixo, com o correr do tempo. 
A equa 9 <fo que relaciona o deslocamen- 
to vertical (Y) com o tempo (T) e a ilusr 
tra 95 o que corresponde a situa 9 ao desr 



crita 6 : 



Y = e -CT sen (K . T) 
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onde C e um parametro ligado i viscosi- 
dade do 61eo no amortecedor eKeum 
numero diretamente proporcional a fre- 
qiiencia de vibra 95 o da mola, ligado por- 
tanto a sua elasticidade. 

Variando C e K, voce pode estabele- 
cer o par de valores ideal para uma dada 
suspensSo, de maneira que ela nio seja 
dura demais ou entSo n£o oscile a ponto 
de provocar enjoo. 

Para isso, voce deve visual izar o corn- 
portamento do conjunto para virios 
valores e combina 96 es de C e K. 

Isto pode ser feito construindo-se o 
grafico Y = f (t), na tela de seu compu- 
tador. Obviamente, cada micro tern suas 
caracteristicas, mas podemos escrever 
um programinha generico que sera al- 
terado em fun 9 ^o do microcomputador 
no qual esta sendo digitado (figura 1 ). 

Neste programa # , H, V, S e & de- 
vem ser substituidos pelo que esta indi- 
cado na figura 2 . 

No MSX, por exemplo, este progra- 
ma ficara como mostra a figura 3. Ja no 
CP-400, antes de roda-lo, de o coman- 
do direto PCLS para limpar a tela de al- 
ta resolu 95 o. 

0 programa pede dois valores (INPUT 
C e INPUT K), antes de come 9 ar a dese- 
nhar o grafico. 

Um valor inicial aconselhavel esta 
relacionado na tabela da figura 2 , mas 
obviamente voce deverd rodar o progra- 
ma outras vezes com outros valores de 
CeK para perceber as correspondentes 
varia 90 es no comportamento da suspen- 
sSo. 

A resolu 9 §o do grafico depende do 
computador: no TK85 (figura 4) obte- 
mos um grafico mais grosseiro do que 
no TK90X (figura 5). 

Colocando um STTEP .1 na linha 40, 
voce torna o programa muito mais 
lento, mas faz com que o grafico fique 
mais denso (figura 6 ), melhorando, as- 
sim, seu aspecto. 

E claro que depois de brincar um 
pouco com este programa, voce vai co- 
me 9 ar a introduzir altera 90 es e melho- 



;>{mbolo 

no 

programa 


Sign if icado 


APPLE 


CP400 


MSX 


TK90X 


SINCLAIR 


• 


Coloca a tela no 
modo de alta 
resol ugao 


HGR 


PMODES : SCREEN 1 , 1 


SCREEN2 


REM 


REM 


H 


Numero de pontos 
na horizontal 
(-1) 


279 


255 


255 


255 


63 


S 


Sinai que ajusta a 
orientagao do 
eixo vertical 


-1 




-1 


♦ 1 


1 


V 


Numero de pontos 
na vertical 
(-1) 


159 


191 


191 


175 


43 


• 


Comando para 
■plotar* os pontos 


HPLOT T.Y 


PSET(T.Y) 


PSET(T.Y) 


PLOT T, Y 


PLOT T.Y 


c 

K 


Constantes ligadas 
ao amortecimento (C) e 
a elasticidade da 
oola (K) 


.01 

.1 


.01 
. 1 


.01 

.1 


.01 


.05 

.5 



Figura 2 




Figura 3 




Figura 4 




Figura 5 




Figura 6 



ramentos. Ele e apenas um come 9 o: o 
limite final depende apenas de sua cria- 
tividade e imagina 95 o! 

Observa 9 ao: Os programas citados 
neste artigo foram testados nos seguin- 
tes equipamentos: APII TI, da UNI- 
TRON; EXPERT (MSX), da GRADIEN- 
TE; TK85 e TK.90X, da MICRODIGI- 
TAL e no CP400, da PROLOGICA. 

& 



Pierluigi Piazzi 6 formado em Quimica e Ffsi- 
ca pels USP, ex-Professor do curso Anglo Ves- 
tibulares e ex-Diretor Editorial da Revista Mi- 
crohobby. Atualmente 6 Diretor da Aleph Pu- 
blicacdes. 






• Microcomputadores Pessoais 

e Profissionais, Software, Suprimentos 
e Cursos. 

• Financiamento em ate 18 meses sem 
entrada e os pregos mais baixos do 
mercado. 

• Atendimento perfeito, profissionais 
treinados e habilitados para dar a voce 
a certeza de um bom Investimento. 

EQUIPAMENTOS 

Micros das linhas: TRS-80 • Apple • 
IBM • Sinclair • TRS-80 Color 
Impressoras* Videos* Interfaces • Etc. 

SUPRIMENTOS 

Formulario Continuo • Disquetes • 
Fitas * Mesas * Etiquetas * Etc. 

SOFTWARE 

Nacionais e Importados mais 
de 2.000 programas e 
jogos de todas as linhas. 

CURSOS 

Basic • Basic Avangado e DOS. 



Av. Ataufo de Paiva, 566 
sobreloja 211 e 202 
Rio de Janeiro - R. J. 
Tels.: (021) 239-2798 e 511-0599 
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Com este sistema, para o ZX Spectrum, voce pode submeter seus 
alunos a provas, em multipla escolha, de diversas disciplinas. 



Simulador de provas 

Jos6 Rafael Sommerfeld 



1 


MENSAGENS 

Respostas Corretas 
- Muito bom, acertou na 


primeira ; 


2 


- Acertou, mas podia ser 


melhor ; 


3 


- Mais atengao. Voce quase erra. 


1 


Respostas Erradas 
- Tente acertar de novo; 




2 


- Voce esta demorando a 


acertar ; 


3 


- Estude um pouco mais. 





Figura 2 - 
Exempk > de 
mensagens em 
uma prova 
com tres 
chances por 
quest do. 



E ste 6 urn sistema que tem como 
objetivo simular a apiica$5o de 
uma prova, em multipla esco- 
lha, permitindo ao pai ou pro- 
fessor passar ao micro determinadas nor- 
mas de comport amento durante sua 
aplica^ao, tais como numero de chances 
a serem dadas ao aluno e mensagens a 
exibir, entre outras. 

Desenvolvido em BASIC para o 
TK90X (vers&es 16 ou 48 Kb), o siste- 
ma e composto de dois programas, po- 
dendo ser facilmente adaptado para ou- 
tros micros. Acompanhando o fluxo 
apresentado na figura 1 , veremos como 
ele funciona. 

O primeiro programa (chamaremos 
de Prepara 9 ao) permite ao educador for- 
mular a prova, ou seja, nesta etapa sera 
informado o numero de questSes da 
prova, o numero de respostas por ques- 
tao, o numero de chances por questao, 
as mensagens que serilo dadas ao aluno 
durante sua aplica93o e o conteudo das 
questSes (pergunta, resposta e numero 
da resposta correta). Apos informar os 
dados da prova, o educador entao pode- 
tA gravd-la em fita para posterior leitura 
pelo programa responsavel por sua apli- 
ca^ao. Ainda nesta fase 6 dada como en- 
trada opcional a leitura, a partir de fita, 
de uma prova anteriormente elaborada, 
para possiveis mudan 9 as nas questSes 
que o educador desejar. 

0 segundo programa (Execu 9 §o) per- 
mite ao aluno fazer a prova, ou seja, per- 
mite a leitura da prova gravada em fita, 
aplicando-a ao aluno e, ao final, exibin- 
do os resultados obtidos. 

Vale mencionar que o sistema foi de- 
senvolvido em dois programas para favo- 

40 



recer seu uso em equipamentos de 16 
Kb, alem de inibir o acesso do aluno as 
rotinas de altera 9 §o da prova. 0 educa- 
dor ent2o, se desejar, pode fornecer uma 
fita ao aluno contendo apenas o progra- 
ma Execu^o e a Prova. 




COMO FUNCIONAM OS PROGRAMAS 

O programa Prepara 9 ao inicia apre- 
sentando um menu de op^aes, que sao: 
montar prova, ler prova, mudar questao 
e gravar prova. Ao se indicar a op^ao de- 
sejada, o programa segue para a rotina 
correspondente. Caso a prova nAo esteja 
na memdria, ou seja, n5o tenha sido 
montada nem lida da fita, o programa 
bloqueara o acesso As rotinas Mudar a 
Questao e Gravar a Prova, retornando ao 
menu. No inicio de qualquer uma das 
rotinas, caso se deseje voltar ao menu, 
basta pressionar ENTER. 

Na rotina Montar a Prova o programa 
apresenta uma tela, pedindo a quantida- 
de de questSes, de respostas e chances 
por quest3o. Para a versSo de 48 Kb, o 
numero maximo de questSes 6 99, e 
para a de 16 Kb, este numero fica redu- 
zido - variando em fun^ao do nu- 
mero de respostas por questao. Neste ca- 
so, quando houver estouro no limite de 
espa^o, o programa exibira uma mensa- 
gem e voltara ao inicio da rotina. A 
quantidade de respostas sera um numero 
de 1 a 5, e a de chances por questao sera 
um numero maior que zero e nao supe- 
rior a quaiitidade de respostas. 

Ao finalizar esta tela, o programa 
perguntara se as informa^des estao cor- 
retas. Sendo digitado N, o programa re- 
tornari ao inicio da tela, soiicitando no- 
vamente as infomr^Ses. Caso se digite 
S, o programa prosseguird para a tela 
posterior. Este procedimento de confir- 
ma 9 §o ocorre tambem nas duas telas 
seguintes, durante a montagem da pro- 
va. 

A segunda tela permite a digita 9 ao 
MICRO SISTEMAS, Dezembro/85 



das mensagens a serem exibidas durante 
a execu 9 do da prova. Observe alguns 
exemplos de mensagens na figura 2. Ca- 
da mensagem tem o tamanho maximo 
de 29 caracteres. Durante a aplica 9 §o da 
prova, as mensagens serao mostradas de 
acordo com o numero de chances no 
momento. Por exemplo, na primeira 
chance, se o aluno acertar, a mensagem 
1 (das mensagens corretas) sera exibida. 
Se errar, a mensagem 1 (das mensagens 
erradas) sera exibida. 

A terceira tela permite a digita 9 ao, 
questao por questao, da pergunta, das 
respostas e do numero da resposta cor- 
reta. 0 tamanho maximo da pergunta e 
de 30 caracteres. 0 numero de respostas 



corretas devera ser maior que zero e nao 
superior ao numero de questSes. 

Ao terminar a entrada das questSes, 
o programa emite uma mensagem, 
aguardando que uma tecla qualquer seja 
pressionada para voltar ao menu. 

Na rotina Ler Prova, o programa soii- 
cita o nome da prova que se deseja ler 
da fita. Ap6s informar o nome, o pro- 
grama pede para que se ligue o gravador 
(posicione a fita no inicio da grava 9 lo 
que deseja). A leitura se fara automati- 
camente e, ao terminar, sera dado um 
aviso e solicitado que se digite uma tecla 
qualquer para voltar ao menu. Observe 
que o nome da varidvel lida nao aparece- 
r A na tela como normalmente ocorre em 



uma leitura. Isto e normal, pois o pro- 
grama foi desenvolvido para se compor- 
tar assim. Esta rotina deve ser utilizada 
apenas quando se desejar mudar o con- 
teudo de uma prova anteriormente ela- 
borada e ja gravada em fita. 

Na rotina Mudar Questao, o progra- 
ma inicia pedindo o numero da questao 
que se deseja alterar. Apos informar o 
numero, o programa exibe a questao no 
video e pergunta se sua mudan 9 a esta 
confirmada. Se for digitado N, o progra- 
ma volta ao inicio da rotina. Se for digi- 
tado S, o programa permite a redigita- 
9 §o da quest§o. 

Na rotina Gravar Prova, o programa 
solicita o nome que se deseja dar A gra- 
va 9 §o da prova na fita. Apos informar o 
nome, 6 soiicitada a prepara 9 ao do gra- 
vador. Deve-se entao liga-lo e digitar 
ENTER. Ao terminar a grava 9 ao, o pro- 
grama exibira uma mensagem, pedindo 
que se pressione qualquer tecla para vol- 
tar ao menu. 

A seqiiencia geral de uso do progra- 
ma Prepara 9 ao e' a seguinte: 

1 - Ler o programa da fita; 

2 - Ler prova (op 9 ao 2), se for desejada 
a altera 9 §o de uma prova j A feita; 

3 - Montar prova (op 9 ao 1), se for de- 
sejada a elabora 9 §o de uma nova prova; >y 

4 - Mudar questlo (op 9 ao 3), se for de- m 



UNIMOS 

O UTIL AO AGRADAVEL 





TELEGAME 



Primeiro, veio o Telefone. Depois, a TelevisSo e o Video-Game. Agora, a juncao dos tres, deu no 
TELEGAME — uma linha direta com os seus inimigos favoritos, 24 horas por dia. 

E so ligar para a CENTRAL TELEGAME, escolher um dos 150 jogos (500, em breve) do nosso 
repertdrio e, em menos de 2 minutos, ele estari gravado no seu cartucho TELEGAME, pronto para 
jogar. Basta um unico impulso telefonico. A entrega e a mais rapida. 0 pre^o mais economico que 
qualquer cartucho comum. E com o TELEGAME, voce joga quandoe com quantos jogos quiser, sem 
precisar sair de casa para trocar o jogo. 

E se voce quiser, em vez do jogo. voce pode receber Softwares Informativos, tais como: Receitas 
Caseiras, Retrospectiva da Loto, Farmacias de Plantao, Endere^os de Bares e Restaurantes, Cota^des 
da Bolsa de Valores, Notkias Economicas, etc. etc. etc... 

Pe^a uma demonstrate numa das Lojas OT/CAS FOTO MODERNA (SP) ou OTICAS BRASIL (RJ). 

0 util e o agradavel, juntos: 




TELEGAME 



Tpmrtlotfia Fmhrarom Eletronica 



VIU NO QUE DEU? 

500 jogos num so cartucho 












SIMULADOR DE PROVAS 




respondente ao numero da chance em 
que se encontra o aluno, exibida no vf- 
deo. Se ainda houver alguma chance, o 
programa voltard a exibir a mesma ques- 
ts. 

Cada resposta (certa ou errada) tera a 
pequena parte de uma musica tocada 
quando as mensagens forem exibidas. Se 
a prova for muito longa e nao se desejar 
ouvir a musica, pode-se simplesmente 
abaixar o volume da televisao. 

Ao terminar a seqiiencia normal das 
quest6es, o programa apresentar^ as 
quest5es que foram adiadas (se houver). 
Neste momento, se desejar, o aluno po- 
der£ adid-las novamente, s6 que n2o Ihe 
sera dada nova chance para responde- 
las. 

Ao terminar as questOes adiadas, o 
programa entao apresenta os resultados 
do aluno, informando o total de ques- 



sejada a altera^o de alguma(s) questao 
(6es;; 

5 — Gravar prova (op$ao 4). 

Apos digitar o programa, grave-o em 
fita com a instruQlo: 

SAVE “PREPARACAO” LINE 10. 

U programa Execu 9 ao micia apresen- 
tando um menu de op$5es, que sao: Ler 
Prova e Fazer Prova. 

A rotina Ler Prova funciona da mes- 
ma maneira que a do programa Prepara- 
9§o. 

A rotina Fazer Prova apresenta, uma 
a uma, as quest6es, solicitando o nume- 
ro da resposta que lhe parece certa ao 
aluno. Neste momento, se o aluno dese- 
jar, pod erf adiar sua resposta (digitando 
zero), respondendo a questao no final 
da prova. Deve-se entender as conseqiien- 
cias em se adiar uma resposta. Se o alu- 
no tiver tres chances para responder e na 



primeira chance adiar a resposta, entao 
quando responde-la no final tera seu 
acerto contado na ultima chance dada, 
ou seja, na terceira. Isto acontece por- 
que adotou-se o criterio de que uma 
resposta adiada, ao ser respondida no 
final, ja est£ em sua ultima chance. 

Ao termino de cada quest§o, sera exi- 
bida a mensagem Pressione uma tecla 
para prosseguir. 

As quest5es que tiverem respostas 
certas tenfo a mensagem Resposta corre- 
ta exibida e a mensagem de acerto cor- 
respondente ao numero da chance em 
que o aluno se encontra. 

As questOes que tiverem as respostas 
erradas terio a mensagem Resposta er- 
rada, o numero de chances que o aluno 
ainda tern para responder aquela ques- 
ts (se tiver) e a mensagem de erro cor- 



O SOFTWARE PARA O SEU MICRO 



Printer* (48) • recoma as pe$as do 
computador 

Piromania (48) • apague os mctendios 
The Pyramid (48) • aventura na piramide 
30 Tank Ouel (48) • supertatalha de 
tanques 

30 Starstrike (48) ■ guerra nas estreias 
Son of Blag ger (48) • recolha os objetos 
Psytron (48) defenda sua base lunar, em 3D 
Wheelle (48) - pilote uma moto no 
subtefrSneo 

Fall Guy (48) • baseado no filme DURO 
NAQUEDA 

Booga-Boo (48) • ajude o sapo 
Arcventure (48) • mate o Conde Drdcula 
Hunckback (48) • ajude o corcunda 
Harrier Attack * combate nas Malvinas 
SPY v SPY (48) • guerra dos esptdes, 

Knight Lore (48) - aventura no castelo. em 30 
Fred (48) - desvende os pengos da 
pirdmide 

Fantastic Voyage (48) - entre no corpo 
humano 

Ainwolf (48) baseado no senado AGUIA 
DEF0G0 

1994 (48) • uma missdo no future 
River Raid (48) • percorra de avido um no 
pengoso 

Blade Alley (48) • desafio espaciai em 3D 
Maziacs (48) • cace um tesoure no labmnto 
30 Ant Attack (48) • salve a mocmha das 
formtgas 

Spectres um jogo diferente Upo come-come 
New Poker (48) • cl^ssico jogo de poker 
Androids i48) ■ aventura no labmnto 
Cbese Cake (48) - salve os humanos 
PSSST • salve sua planta das pragas 
Cookie aiude o coztnhetre 
ScubadKe (48) • recolha as peroias do mar 
Penetrator (48) • destrua o reator 
Jetset Willy (48) • recolha os objetos 
Tranz Am pegue os trofteus nos EUA 
Full Throttle (48) - corrida de motos. em 3D 
Chequered Rag (48) • mantenha a POLE 
POSITION 

Worse at Sea (48) • mantenha o navio 
flutuando 

Ttoshman (48) • ajude a manter a cidade limpa 
JetPac construe os foguetes 
Selddad Attack combata os mvasores 
Aquaplane (48) • uma lancha num mar de 
pengos 

High Moon dueto no velho oeste 
Invasion Force • destrua a nave m§e 
Jump Hallager (48) - pule os obsteculos 
Night Gunner (48) • pilote um bombardeto 
Sir Lancelot - pegue os objetos no castelo 
Ghostbusters (48) • ca$a aos fantasmas 
Blind Alley (48) baseado no filme TR0N 
Molar Maul • defenda seus dentes das canes 
Gaiaxians destrua as abelhas assassmas 
Monster In Hell - cuidado com o inferno 

UTIUTARIOS/APLICATIVOS - 
SPECTRUM/TK 90K 
-Cr$ 70.000- 

VU 3D • utiiitdno grdfico Teias em 3D 
VU Calc • plant lha de c&cutos 
VU Rle • arquivo de dados para uso geral 
Ultra Violet • super disassembler 
MC0DER II -cdmpilador BASIC 
Paint Box • editor de teias grdficas 
- Cr$ 90.000 - 

SoftCALC - planilha de ctelcutos com 
GRARCOS 

PASCAL 1.6 compilador 
Spec FORTH • compilador 
ASSEMBLER • supereditor assembler 
TaswonJ H • processador de texto com 
64 colunas 



Armored Patrol (F) • patrulha de tanques 
Allen Defense (F) - proteja-se dos mvasores 
Meteor Mission (F) • Canada espaciai 
Outhouse (F) - proteja o seu banbeiro 
Robot Attack (F) • destrua os robds 
Sea Dragon (F) • pilote um submanno 
Missile Atack (F) * defenda sua cidade 
Scarfman (F) - jogo tipo Pac Man 
Cavern (F) • escape vivo da cavema 
Penetrator (F) • aprofunde-se na cavemas 
Assault (F) • fuja dos dgeis mimigos 
Demon Seed (F) • acabe com os enormes 
passaros 

Cosmic Rghter (F) - jogo bpo Invasores 

Panlk (F) • escape dos roods 

Crazy Painter (F) • pmte a tela, se puderl 

Chicken • ajude a galmha 

Galaxy Invasion (F) • upo Invasores 

Sargon (F) • jogo de xadrez 

Asilo (F) • aventura grafica 

Zork I • superaventura 

Adventur 4 aventuras diferentes 

FucFuc • programa pomogrdfico 

Ghosts (F) - cace os fantasmas 

Rally - pegue todas as bandeiras durante 

um rally 

utilitArio/aplicativos - 
CP-300/500 

• Cr$ 390.000 - 

Creator gerador de programas BASIC 
Vlsicalc • planilha de cdicuios 
Scripsit (F) • processador de textos 
Clone III • copiador rdpido oe discos 
ACCEL 3/4 compilador BASIC 
Bascom - compilador BASIC 

• Cr$ 490.000- 

NEWD0S/80 20 sistema operacional 
DOSPUJS 35 - sistema operacional 
Arranger II • arquivo de diretdnos 
Profile III gerador de banco de dados 
SuperSCRIPSIT processador de textos 
ZEUS • supereditor assembler 
DIsnDAJA super disassembler 
-Crl 590.000* 

Producer gerador de programas 
Super Utility 3.2 • superutilrtdno 

JOGOS- SPECTRUM/TK 90X 

• Cr$ 60.000- 

Rghter Pilot (48) - pilote um F-15 Eagle 
Flight Simulation (48) - simulador de vdo 
Hungry Horace • divertido Pac-Man 
Horace & Spiders - enfrente as aranhas 
Horace skiing (48) • esquie montanha 
abaixo 

Meteors • destrua os meteores e naves 
Combate Zone • bataiha de tanques em 3D 
TerrorDaktll 4D (48) • atfo na terra perdida 
Astro Blaster defenda o impteno 
Trader (48) ♦ comdroo e aqio no espaQO 
Styx (48) • ande o labirinto e mate a bruxa 
Tutankhamun (48) • explore a tumba 
Arcadia sobreviva na travessia fatal 
Space Intruder jogo tipo Invaders 
Tornado (48) • pilote o avido Cendno em 3D 
Planetoids aventura espaciai 
Match Point (48) • fantastico tints em 3D 
Caveion (48) • uma aventura no castelo 
Galaxy Attack (48) • vanas fases no espa$o 
Chess jogo de xadrez 
Android 2 (48) ■ mate os robds Cendno em 3D 
Escape saia do labinnto sem ser morta 
Lab 30 serd que voce sai dessa’ 

Ground Attack - jogo tipo Penetrator 
Delta Wing (48) • pilote um caqa F-16 em 3D 
Manic Miner (48) recolha os objetos da mma 
Potty Painter (48) - preenctw os quadrados 
Pool • fantastico jogo de smuca 



SPY vs SPY divertida aqdo de esptao 
contra espido. baseada nos famosos 
personagens da revista MAD. 

Droll fantastica perseguJ$do com vdnas 
fases. Grdficos mcn'vets e a^do rapida 
Sky Fox (J/64) • supersimulador de vdo 
com incnveis situates de combate em 
vanos niveis. Grdficos sofisticados. 

Mask of the Sun aventura grafica. 

No M&cico. voce deve achar os tesouros 
perdidos de uma antiga crviltzaQdo. 

Kabul Spy - thnler de espionagem tendo o 
Afegamstdo como cendno 
Dark Crystal aventura grdfica baseada no 
filme "0 Cnstal Encantado". Ache o 
fragmento do cristal. passando por 
diferentes cenanos 

Flight Simulator II - pilote um Piper 181 
totaimente equipado. atraves de realisbcos 
cendrios. de Nova fork a Los Angeles. 
Quando vocd estiver preparado enfrente 
um combate real da 1 • Guerra Mundial. 
Seven Cities of Gold (J/64) - aventura 
grdfica. Voce deve achar o Novo Mundo. 
retomando com oure e glona para a Corea 
The Incrivel HULK • aventura grdfica 
baseada na revista do HULK. Voce deve 
dotar este incrivel ser de mteltgenoa 
Capitain Goodnight (J/64) • sua missdo d 
SALVAR 0 MUNDO das garras do terrivei Dr. 
Maybe localtzando e destrumdo a arma do 
juizo final. 

Rescue Raiders (J/64) • pilotando um 
heiicbptere. comande suas tropas, durante 
esta mcansdvei bataiha 
Bruce Lee (J) - lute karatd como o famoso 
Bruce Lee. Mate os ninjas e os lutadores de 
sum6. e complete as mais mcriveis fases. 
Mr Do (J) - vocd e um mdgico que devera 
proteger o seu pomar de uma terrivei 
praga 

Were Is Carmen Sandiego (64) • seja um 
detebve que devera prender o culpado pelo 
reubo. Viaje pelo mundo coletando pistas 

UTILITARIOS/APLICATIVOS • APPLE II 
■ Cr» 320.000 • 

Vlsicalc • planilha de cdiculos 
VisipJot/Visitrend gerador de grdficos 
Vlsidex orgamzador de atividades 
Vlsiflle - gerador de banco de dados 
Visichedule - andiise financeira PERT/CPM 
Apple LOGO - compilador 
Apple FORTRAN (CP/M) - compilador 
Apple Mechanic • utilitdrio grdfico 
GraFORTH compilador 
Locksmith 50/F utiiitdno de cbpia 
Nibbles Away II/C3 • utiiitdno de cdpia 
The Graphics Magicians ammador grdfico 
The Graphics Solution editor de grdficos 
Print Shop gerador de impressos grdficos 
- Cr$ 450.000 - 
Turbo PASCAL (CP/M) • compilador 
Take 1 • superammador grdfico 

JOYSTICK ANAUfclCO • APPLE II 
-Cr| 280.000- 
JOGOS • CP-300/500 
-Crl 70.000- 

Right Simulator (F) • simulador de v6o 
Olympic Decation (F) • jogos otfmpicos 



F = pode ser gravado em fita K7 
J = uso obrigatorio de joystick 
48 = requer 48K de RAM 
64 = requer 64K de RAM 



JOGOS • APPLE II 
- Crl 70.000 - 

Sabotage (F) • evite os paraquedistas 
Sargon (F) • jogo de xadrez 
Draw Poker (F) • jogo de poker 
Blackjack (F) • jogo de 21 (cartas) 

Checkers (F) • jogo de damas 
Fast Gammon (F) • jogo de gamdo 
Othello (F) • logo de tabuleiro 
Lode Runner pegue os tesouros 
Olympic Decation jogos olimpicos 
Space Raiders (F) - de tipo Centopdia 
The Eliminator (F) • combate espaciai 
Night Crawler (F) enfrente as Centopdias 
Space Eggs (F/J) • ca^ar ovos espactais 
Hard Hat Mack perigos na constru^do 
Head On (F) • jogo de corrida 
Chopllfter (F/J) resgate com helicdptero 
Sea Dragon - pilote o submanno 
Spy's Demise (F) • jogo de agente secreto 
Star Blazer • combate atereo 
Viper (F) • alimente a cobra 
Cavern Creatures - penetre na cavema 
Moon Patrol (F) • patrulha lunar 
Ms. Pac Man (F) • a namorada do Pac Man 
Mario Bros (F) • Mano contra o gonla 
Buck Rogers otiote sua nave em “Zoom" 
Pitfall II aventuras nas cavemas perdidas 
Castle WoKenstein engane os nazistas 
Beyond Castle Wolfenstein - mate Hitler 
Aztec decifre o enigma da ptrdmide azteca 
Stellar 7 • combate no espa^o em 3D 
Ribbit (F) • jogo Upo Frogger 
Super Buny • combata as pragas 
Allen Ambush (F/J) • jogo tipo Arcade 
Out Rost (F) • defenda a estai^o espaciai 
Defender [F/J) • Defender original 
Dog Fight II (F) - confronto de jatos 
Star Trek Jornada nas Estreias 
Jellyfish • pilote um submanno 
Swashbuckler II • duelo de espadachms 
Temple Asphai • aventura no templo 
Flight Simulator (F) - simulador de voo 
One on One (J) - basquete com 2 jogadores 
-Cr$ 150.000- 

Karateka perfeita simula^o de karate 
Enfrente vanos adversanos e liberte a 
pnncesa do Akuma. 

Conan localize e destrua Volta em vanas 
fases e com diferentes obst^culos. 
Ghostbusters (J) - monte uma empresa de 
ca^a aos fantasmas e comece sua 
aventura Baseado no filme. 

Summer Games (64) • 8 modalidades 
completes de atietismo, com as mars 
emocionantes provas olimpicas de vetea 



Preparacao 



4.002 IF a =0 THEN GOTO 8000 
4.0O5 PRINT RT 5 3."N0«e da prova 
LET w$= O519100 GOSUB 900 
0 IF THEN GOTO 100 

4.010 print rt 5 0. Prepare o gra 
vador para GRR'.iRCAO" 

4.020 5RUE 2 5 DRTR d$U 
4.030 PRINT RT 9 6; GRRUflCRO TERM 
INRDw • GOTO 5000 _ 

^000 CL5 PRINT RT 1 , 7; ’’LEITURh 
DR PROUR" TR8 ^ . ** = = = = = = = = = = = = = = 

^010 PRINT RT 5.3;"N0»e da prova 
LET w$= O519100 G05U8 900 

0 IF 25= THEN GOTO 100 
5020 PRINT RT 5 0,b5 RT 5,7. "Li 9 
u e o g r a v a d o r " 

5030 INK 4. LORD 2$ DRTR di 
NK 0 

5035 LET a =UHL dl<Ml i TO e L 
ET b-UHL d S' 1 1,1' 13 ) LET c ='JRL d 
5 • 1 1 1 1 4 . ) 

504.0 PRINT RT 9 6. LEITURR TERHl 
NRDR ' 

6000 PRir4T RT 12,4. "Pressione qu 
aiquer tecla RT 14., 7, "para volt 
a r ao menu 

6010 IF INKE' 5 = ’ THEN GOTO 6010 

5020 GOTO 100 

80O0 PRINT RT 20.3.PROUR NRO E5 
TR NR HE MORIh" PAUSE 120 GOTO 
100 

9000 LET «1=URl W$ TO 2' LET v 
2 =URL w$i3 TO 4.‘ i_ET w3=URL w 5 > 
5 TO 6 J .LET w4.=32 LET w5 = 123 
LET *7=0 LET 2 5 = 

9010 IF *$(7) =" 1" THEN LET u>4.=4.3 
LET *5=57 

9020 PRINT RT * 1 , *2 , x $ i TO *3) 
9030 PRINT RT w 1 . *2 . " > " 

904O PAUSE 0 LET aS^INKE-yf SOU 
ND .0005,50 LET * 6 =CODE a) 

R050 IF *6 = 13 THEN PRINT RT *1 «u 
2.b5( TO w3-*7+l ) RETURN 
9060 IF *6=12 THEN GOTO 9100 
9O70 IF *7 = w 3 OR *6<*4 OR *6 *5 
THEN GOTO 9030 

9080 PRINT RT Wl,w2,a5 LET *7=w 
7 + 1 LET *2 =«c + l LET 25=25 + 35 
GOTO 9030 

*100 IF w7=0 THEN GOTO 9030 
9110 PRINT RT « 1 , *2 . " . " 

9120 IF*W7=*3 THEN PRINT RT *1,* 

9130 LET *2=*2-i LET *7=*7-l L 
ET 2 5 =Z 5 < TO *7 - * GOTO 9030 
9500 print rt 20 ,0 . "In foraacoes 
Co r re tas ? (s n ) " 

9510 LET mS= "2030010" GOSUB 900 
0 

3520 IF 25 = AND 15 > "5 ' AND 

2 5 < > "n " AND 2 5 N THEN GOTO 95 

10 

9530 RETURN 



REH SISTEMA DE SIMULACAO DE 
REM PROUA - PREPARACAO 
PEM Mi cro— Sis tends 

REH somne r f e id 

LET X 5 = . . . • • • 

LET b5 = " 



1310 FOR X = 1 TO C LET *5= 1 +5T 
P 5 < +1J +"82230 GOSUB 9000 LE 

T d 5 (2 , x +1) =2 5 NEXT x 
1400 GQSUB 9500 IF 2 5 = "n " OR 2 5 
=‘N " THEN GOTO 1200 
2000 CLS 

2010 PRINT RT 1,6; "ENTRADR DAS 0 
UEST0E5" , TAB 6 ================ 



*100 BORDER 0 PAPER 4 INK 0 C 

L ll0 PRINT RT 1.12, INK 2. PAPER 
6. FLASH 15 S P" PRINT BRI 
GHT l , RT 3 , 1, "Sistema de Si»uiac 
ao de Prova" at 4,2; “Micro Siste 
mas - So » » e r f e t d " 

140 PRINT RT 6 , 10, "PREPARACAO 
RT 3.12, 0PC0E5",AT 11 , 3, “ 1-Hon t 
ar prova 1 .TAB 8; *2-Ler Prova", TR 
E 3 ’ 3-Hud a r OU€S t ao " i TAB 

ravar Prova" 

160 PRINT AT 13 ,2 • "Indi que a OP 
cao d€S£jada LET *5=“1829011 

GOSUB 9000 _ 

180 IF 25 "1 OR 2 5 >’*4" THEN 
TO 160 

190 LET 0 =UAL 2 5 
200 Ir 0=2 THEN GOTO 5000 
210 GOTO 0*1000 
1000 CLS 

1010 PRINT RT 1 , 8, "MONTANDO A PR 
OUR" • AT 2,8 ================ A 

T 5 12; ’* In f o rme : ” 

1020 PRINT at 10 , 1, "Ouanti dade d 
€ Ouestoes.. " RT 12 . 1; "Ouan t i da 
de de Respostas. *’ ;RT i4.^.* , Chan 

ces Por Questao ” 

1030 LET *5= 1027021" GOSUB 900 
0 IF 25= THEN GOTO 100 
1040 LET a =UAL 2 5 IF a=0 THEN G 
OTO 1030 

1050 LET *5= •1227011" GOSUB 900 

0 IF 25= THEN GOTO 1050 

1060 LET b=URL 25 IF b=0 OR b>5 
THEN GOTO 1050 

1070 IF PEEK 23730+256+PEEK 2373 

1 6536^ AND a * ' 30* ( b + i) +1 1 >3650 
THEN PRINT RT 21 , 8 . "MEHORIA LOTA 
DR PAUSE 100 GOTO 1000 

1030 LET ».t 5 =' 1427011" GOSUB 900 
0 IF 25= THEN GOTO 1030 
1090 LET c=UAL 25 IF c =0 OR C > b 
THEN GOTO 1060 

1100 GOSUB 9500 IF Z 5 ="n" OP 2 5 
= N" THEN GOTO 1000 
1110 DIM d 5 i a + 2 b + 1.30) 

1120 LET 2 5-5TR5 3 IF LEN 2 5=1 
THEN LET 25= 0"-25 

1130 LET 2 5 =2 5 + 5TR5 b LET 25=25 
-3TPS : 

1140 LE^ d5 (1; 1) =25 

: '0 cls 

0 PRINT RT 1 . 11, "MENSAGENS" T 
- - 11, = = = = = = = = = ". RT 4.5, "ReSPOS 

*. a : Corretas RT 11 ,5, "Respos tas 
£ * * adas " 

1220 FOR X=1 TO C PRINT RT 4+x , 
0 - RT 11+ 0 • . ' - " NEXT 

1300 “OR =1 TO C LET w 5 = ‘ 0 " +ST 
P 5 +4.1+ 02290' GOSUB 9000 LE 

T dS<l,X+l) =2 5 NEXT x 



2020 FOR x =3 TO a +2 

2030 FOR y=4 TO 20 PRINT fi’ y,0 

. Di NEXT y 

2040 PRINT RT 4 8, "Questao Numer 
o " x-2 AT 6.0 Pergunta " , RT 1 
0 « Respostas FOR 2=1 to t 

PRINT RT 11*2 ,0; 2 ; NEXT 2 

PRINT rt 18.0; Resposta Correta 



2050 LET * 5 =" 0300300 " GOSUB 900 
0 LET df (x , b + 1) =25 
2060 FOR 2=1 TO b LET *5 = "1' +5T 
R5 (1+2) +"02290" GOSUB 9000 LE 
T d 5 ( X ,2> =23 NEXT 2 
2070 LET *5= 1819011" GOSUB 900 
0 IF Z5= THEN GOTO 207O 
2080 LET d =<JAL 2 5 IF d =0 OR d b 
THEN GOTO 2070 
2035 IF 0=3 THEN RETURN 
2090 GOSUB 9500 IF ZS="N" OR 25 
="n " THEN GOTO 2030 
2100 LET d5 (x # d , 30i ="1" 

2110 NEXT X 

2200 CLS PRINT RT 3,9. FLASH 1 
PROUA MONTADA".AT 12,3 FLASH 
0 Aperte qua'.quer tecta para" .R 
T 14,9, "vo Itar ao menu" 

2210 I F INKEx 5 = " “ THEN GOTO 2210 
2220 GOTO 100 

3000 CLS PRINT RT 1,6; "MUDANCA 
DE QUESTAO". TAB 6,"============ 



3005 IF a =0 THEN GOTO 8000 
3010 PRINT RT 4,1, "Qua L questao 
deseja mudar LET *5 = ”0429021 

GOSUB 9000 IF Z5 = ,, • , THEN GOT 
0 100 

3020 LET q=UAL 25 IF q =0 OR q>a 
THEN GOTO 3010 
3025 lET q=q+2 
3030 PRIf4T rt 6 , 0 ; "Pe r gun t a 
d 5 1 q . b + 1 ) , RT 10 . 0 . "Respos tas " 
3040 FOR X =1 TO b PRINT RT li+x 
,0, x; dS (q .X) 1 TO 29) 

3050 IF d5 >q x . 30) ="1" THEN U ET 

d =X 

3060 NEXT x PRINT RT 13,0," Re SP 
osta Correts ;<j 

3070 PRINT rt 20,0 ’Confirm a mud 
anca da questao ?" GOSUB 9510 
IF 2 5 ="n " OR 2 5 ="N" THEN GOTO 30 
00 

3030 LET d 5 '• q , d , 30) ="0' LET X =q 
GOSUB 2050 

3090 GOSUB 9500 IF Z$="n" OP 2 5 
="N" THEN GOTO 3080 
3100 LET dS • q , d , 30) ="1" 

3110 GOTO 3000 

4000 CLS PRINT RT 1,7, "GRAUACA 
0 DR PROUA" , TAB 7;"============= 



Desejo receber os seguintes programas pelos quais estou envlando um cheque nominal d ATI Edltora Ltda.. Av. Pres. Wilson, 165 • Grupo 1210 - Centro. CEP 20.030 
Rio de Janeiro - RJ. Despesas de correio ja incluidas. 

Computador:( ) CP-300/CP-500 ( ) APPLE II ( ) SPECTRUM/TK 90X. ITEM (t) PREQO Cr$ 

Com:.... K RAM. Desejo os programas em:( ) FITA { (DISKETTE. 

NOME: 



CIDADE: 



MICRO SISTE MAS. Dezembro/85 



Softllne • Av. Gra;a Aranha, 145, Slj. 01 • Centro - RIo de Janeiro • RJ • CEP 20.030 • Tel.: (021) 262-6968 




SIMULADOR DE PROVAS 



Execucao 



10 REM 5I5 t EhR DE 5IMULRCR0 DE 
20 PEM CPQUfl - EXECUCRO 
30 cem Micro -Sxsten as 

40 PE M 3om»e r f e l d 

50 LET * = , , 

LET bS = ' 

o 

=0 

60 DPTP .1 -5 . 1 -5, .2 -3 . .2 - 
5 .1 0 .2 -1 . I -5 . . 1 , -5 , .2 -3 . 

2 -5, .1,2. .2. 0,-12. -12. -8. -3 -5 
-5 -7,-8 -10 -5 -3.-10 -12 

70 DIM Hm37i FOP X =1 TO 23 5T 
£- 2 READ Z LET »<X)sZ RERD Z 
LET ir. < - *1 =2 NEXT < 

80 FQP =25 TO 37 READ Z LET 
» :x I =: NEXT x 

100 BORDER 0 PRPER 4 INK 0 C 
L5 

110 PRINT *t j, 12 INK 2 PPPEP 
5 FLP5M 1 5 S P" PRINT BP I 

Ght i pt 3.1 -5i Siena d€ Sinuiac 
ao de Pro^a RT 4,2, ‘Micro Siste 
a as - 5o«ater fe id " 

140 PRINT flT 6 11 ‘EXECUCRO RT 
3 12 "0PC0E5 RT 12,10 “1-Ler P 
rova TRB 10 2-Fazer Prove' 

160 PRINT RT 13 ,2, “Indi qu€ a OP 
cao desejtds let w§= "1829011 
G05UB 9000 IF z$= THEN GOT 

3 160 

130 r- : 5 l :* 2 the-. 

TO 150 
TO 170 

190 IF 2 S = 2 THEN GOTO 2000 
1000 CLS PRINT RT 1,7, "LEITURR 
DR PPOOR trb 7, ============== 

If 10 PRINT RT 5,3. None da prow a 
LET WS= 0519100 G05UB 900 
0 IF :$= -HEN GOTO 100 
1020 PRINT RT 5 0,b$.RT 5,7; Li 9 
u t o gravador 

1030 INK 4 LORD zs DRTfl dj>< I 
NK. 0 

1040 -LET a=URL d $ 1 1 , 1) t TO 2 l. 
ET b =URI_ d S ( 1 , 1 > (3) LET =URL d 
$ ( 1 . 1 * 14) 

1050 PRINT RT 9 6, “LEITURR TEPMI 
NRDR" 

1060 PRINT RT 12 . 4 Press a orm. qu 



alqutr tecia RT 14 . - 
a r ao men u PAUSE 0 

GQTQ 100 

2000 CLS PRINT RT 1 
0 DR PROUR TRB - = = 

2002 I- S=v THgN PRINT RT 20 3 
PPlvR NRO fr”R NR MEMORIR PR . z 
E 120 GOTO 100 

2005 _ET e=0 LE” • =0 LE^ h sO 
DIM ? : 

2010 “OP =3 to a ^2 
20-5 -:-P Z=4 TO 20 PRINT RT r 0 
tS N£ » T i PRINT RT 4 " 0U€$*. 

ao Nuniero -2 LET s =h *1 
2020 PRINT RT 5 l.dS d+ 1 
2050 -OR Z=i TO b PRINT RT ~-z 
0 z - 35 Z tq 29 IF 3S 





»oram ad: a das .at 12 . 9 flrsh 
ULTIMR CHRNCE PAUSE 300 
2170 CLS 

2200 LET o=3 PRINT RT 1.9 'ULTI 
MR CHANCE" TRB 9, " ============= 

22 1C fqp x =3 TO a +2 
2220 IF r $ < * ' = 1“ THEN lET f-f -1 
-ET h =C -1 GOSUB 2015 
2230 NEXT 



2300 CLS INK 2 PAPEP 7 f l * 5 h 
1 print at io 6 . Agora voce = 

1 saber at 12 4 "seus result. ado 
s na prova f l ^5h o ink o prp 
EP 4 PAUSE 300 

2310 CLS PRINT AT 2 . 4 , " Res PC'S t 
as Correias = a-e-f.RT 4 4 Re 
sposias Erradas = " . e . at 6 . 4 , “R 
espostas Ad i ad as = . f 

2320 PRINT AT 3 4, TOTAL DE DUES 
TOES = a at 1 1 , i . • A c e r i o s pel 
o numero de chances" 

2330 FOR X — 1 TO C PRINT AT 12* 
13, v ; " = * g i NEXT x 

•2340 PRINT AT 19 . 4, “Press x one qu 
• aiquer tec la tab 7. "para voitar 
50 menu' PAUSE 0 GOTO 100 
5000 FOR Z =1 tq 23 STEP 2 SOUND 
v I ft «Z+1 NEXT Z RETURN 
5500 FQP z =25 TO 37 SOUND . 1 , ru t 
Z ' NExT z RETURN 
9000 LE' r •*' 1 =UAl w$ TO 2' L.ET w 
2=UAL w 5 1 3 tq 41 lET ii»3=UAL w i 
5 TO 5 1 LET ... 4=32 lET w 5 = 123 
LET *7=0 lET z $ = ' ' 

9010 IF ws - . = 1 ■ THEN LET w 4 =45 
LET n« 5 = 5 ~ 

9020 PRINT AT wl.w2,X$ TO *.» 3 ' 
9030 PRINT AT *> 1 , u 2 
9040 PAUSE 0 4 -ET a$ = INKEYS SOL 
ND . 0005 50 LET w5=C0DE as 
9050 IF *>6 = 13 THEN PRINT AT w 1 . iu 

2 05 T 0 W3-W7 + 1) RETURN 
9050 IF w 6=12 ~HEN GOTO 9100 
SO^O IF *»7 s«3 OR «6<w4 OP u>5 *> 5 



THEN GOTO 9030 
9080 PRINT' at v i 
~-l — ET w 2 =-'2-1 

GOTO 903O 



w2 , as l .E^ • 7s.n 
LET z$=zs->-as 



9100 IF *>7=0 ~n£N GOTO 9030 
9110 PRINT RT uii,w2. ".” 

2120 IF *>7=w 3 THEN print at U>1 



9130 LET u 2 =tf 2 - 1 LET tft 7 =*!"•- l 
ET zs=Z5 TO w? GOTO 9030 



Torne-se urn: 

COMPUTER DESIGNER 
Aprendendo: 

• DESENHO ANIMADO 
POR COMPUTADOR 

• ARTE 

COMPUTADORIZADA 

• VIDEO-GAME 

• PROJETOSPOR 
COMPUTADOR 

• LINGUAGEM DE 
PROGRAMAQAO 
FORTH 

Promcxpao especial 
com cursos de 
ferias 

Av. Miruna, 200 - Moema 
(Aticis do Shopping Center 
Ibirapuera) 

542-4273/255-5777 R.3108 

/MICROGRAPH 

CURSOS E CONSULTORIA 



NOME DA VARlAVEL 


PROGRAMA OUE A UTILIZA' 




PREPARACAO 


EXECUQAO 


A - Quant idade de questoes 


SIM 


SIM 


3 - Quantidade de respostas 


SIM 


SIM 


C - Numero de chances por questao 


SIM 


SIM 


D - Resposta correta 


SIM 


SIM 


E - Total de questoes erradas 


NAO 


SIM 


F - Total de questoes adiadas 


NAO 


SIM 


G - Matriz com numero de acertos por chance 


NAO 


SIM 


H - Numero da chance corrente 


NAO 


SIM 


M - Matriz com notas musicals 


NAO 


SIM 


0 - Numero da opcao de rotina 


SIM 


SIM 


Q - Codiqo da questao a alterar 


SIM 


NAO 


X - fndice para looping 


SIM 


SIM 


Y - Indice para looping 


SIM 


NAO 


Z - fndice para looning 


SIM 


SIM 


DS - Matriz contendo a prova 


SIM 


SIM 


RS - Matriz com indicagao de respostas 


NAO 


SIM 


adiadas 







Figura 3 - List a de variaveis. 



t5es da prova, o total de quest6es corre- 
tas, erradas e adiadas e o numero de 
acertos pelo numero de chances, ou seja, 
quantas questOes o aluno acertou na pri- 
meira tentativa, na segunda etc. 

Apos digitar o programa, grave-o em 
fita com a instai^o SAVE “EXECU- 
£A0” LINE 10 As variaveis descritas 
nos programas sao descritas na figura 3. 
Para a entrada de dados, utilizou-se uma 
rotina que sera descrita brevemente em 



outro artigo. Assim, as variaveis que nao 
estiverem definidas aqui 6 porque fazem 
parte da rotina citada, onde estao descri- 
tas. 



Josd Rafael Sommerfeld trabalha hd mais de 
cinco a nos com programacao de microcompu- 
tadores e 6 autor do livro Aplica^oes Pessoais 
para o TK85, que estd atualmente em fase de 
p rod u cao grdfica. 



MICRO SISTEMAS, Dezembro/85 



i 




de 16 BITS 

comalta 

performance 



» Oestina-se as mais variadas aphcacbes 
de use pessoal e profissional. 
com alia perlormance em funises 
administralivas e gerenciais 
* Qualtdade. a maior vanlagem da Victor 
garanlia de 1 ano 







CONFIE EM QUEM E RIGIDO E CONSTANTE. 



Os cab os coaxiais para radiofrequ§ncia RADIOFLEX 
s3o produzidos de acordo com a norma militar MIL. 
C.17 e outras normas internaciongis. 

Por isso suas ca ractensticas ei^tricas a mec3nicas s3o 
rig id as e constantes. 

Produzidos com o melhor cobre eletrolltico e a mais 
sofisticada tecnologia mundial a m cab os trangados, 
seu control© de qualidade 6 feito na prdpria linha da 
montagem. 

Sua instalaqSo 6 mais f£cil, per sua alta flexibilidad© - 
que permit© atingir pequenos raios de 
cutvatura - © por sua completa linha 
d© acessPrios. 

Os cabos coaxials RADIOFLEX tern 
opqSo de impedclncia de 50, 75, 03 e 
95 ohms em varies bitolas 
SSo fabricados com componentes 
que facilitam a instglgij3o e garantem 



urn contato elAtrico perfeito, alto desempenho etetrico 
e baixa relate de onda estacion£ria. 

Uma capa de PVC d© alta resistpneia assegura sua 
protepSo contra intern pPries. 

Seu condutor el&trrco interne p vedadc-por uma 
blindagem de fios tranpados dentro dos mais rfgidos 
padrSes de qualidade e tecnologia proporcionando 
excelente blindagem contra RF. 

E, o mais importante: os cabos coaxiais RADIOFLEX 
s5o fabricados pela KMP - uma empresa que utilize a 
melhor matftria-prima, pessoal 
brasileiro altamente especializado e 
tern como ponto principal a qualidade 
dos produtQS que fabric© e um indice 
de national izaplfo de quase 100% . 
Aplique na engenharia da KMP e. veja 
as vantagens de confiar em quern k 
rfgido e constante. 



RADIOFLEX* 



kmP 



Cabas Especlals e Sis temas Ltd*. 



&R m/kw 25 ■ C*. Portil 146 ■ 06800 
imhu SF ■ T*L: 011/494-3433 Fabx ■ Tata* 

01 1 -33234 KMPl - 6R - Teieq r a P.^lcabm 

5 



'JtMJRtA HfUlSTHADA KM? C*605 E&PiCIAlS l SISTEMAS LTflA 



trs-80trs-80trs-80trs-8 



Micro cartao de Natal 



Ricardo de Oliveira 



Fim de ano e tempo de festas. Para voce que possui um mi- 
cro da linha TRS-80 (modelo III) e deseja mandar um cartao 
de Natal especial para um ‘‘micro amigo”, este e o programa 
que voce estava procurando. 

Digite e rode-o. Caso queira obter uma copia do cartSo 
na impressora, acrescente inicialmente a linha* 

IF TNM it - P U»f 

Em seguida, adicione a seguinte rotina, elaborada pela 



Equipe TScnica de MICRO SISTEMAS: 

Men* • 1 -N I 1 * *9 | • ' i • I »»-* I 0. t ' I * 

& 101 o F "b J-0 I or .i 
61020 I IMNII Ilh'ta'FKt' l H I 1 •> 
ft! XT I 

61040 II V INI 
1 050 Ht x f I 

aioc.:* in Muni 

E por ultimo, fa$a as alterasdes a seu gosto e. . . um Feliz 
Natal e Prospero Ano Novo! 



1 * >>>>>>>>>>>>>>>>>>>>)<<<<<<<<<<<<«<<<<<<< 

2 * >>> MICRO CAP f AO Dt NATAL <<< 

3 * >>> Linha TRS-80 - Nod. Ill <<< 

4 * >>> Ricardo de Oliveira <<< 

5 * >>> Boa Esperanca - MO <<< 

6 r >>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<< 

10 CLEAR 1 00 A t QOSUB 60000 *CLS 

20 00SUB 700 
TO l.LS 

100 SLT i 9, 23) aX^USR<30776) :PR I NTS515 . CHR* ! 152) jCHR*< »39> ;CHR *! 14 
t s -Utik • 154101 

110 PR I NI 3570 . CHR t < 14ft * ; : X-USR < If. 41 6) :PR INTCHR*! 141 > ; : X-USR 0257 
V) aPR INTCHR*< 156) ; i * =IJ5R < 32568 > * PR I NT CHR* < 134 ) : a X-USR < 154 10) 

120 PRINTJ642. CHR* f 191 ) ; CHR* ( 191 > ;CHR*t 191 > ;CHR*< l 08 > ; CHR* r 1 80 ) : 
X-USR < 1541A) 

130 PR 1 NTil70A,L'HR*< 191 ) yCHR*! 191 > yCHR*< 1 V 1 ) ;CHR*< 191 > ;CHR*< 157) ; 
a X-USR < 32579) 

140 PRINT3770,CMR*< »91 • ;CHR*i 1 43 > : CHR* ! 1 43 ) y CHR* M 91 ) ; CHR* < 1 49 > | 
*X*USR( 32549) 

150 PRINT «I832 , CHR* < 1 60 > ; a x-USR < 32549 ) a PR INTCHR*' 134 ) y * X®USR ( 3255 
7):PRINTaa38.CHR%< 137>» : X»IJSR < 32554 > 

160 PR 1NTCHRS* 1 52 ) i : X-USR ( 32554 > s PR IN 1 CMR* ( 131 ) : : X=USR ( 32568 > : PR 
INTCHRK 131 ) i :X=USR< 32562) tPRINTCHR'K 1 40 > t : X-USR ( 32562 > :PR INTCHR 
%< 144) i *X"USR < 32554 > 

170 PRINT 3896. C MR 130) | * X=USR I 15405 > :PR INTCHRf ( 1 40 M * X-USR < 1 54 1 
0) :PR1NTCHR*< l 76 > f * X-USR < 32568 ) 

1 BO PR INI 3901 ,CHR*< 176 )» : X-USR t 32562 ) : PR INTCHR* < 1 40 ) » : X=IISR ( 1 541 
A ) : PP INTCHR 1 < 1 29 > t : X=USR ( 32579 > 

190 PR INT39A3, CHRtt 131 )» a X«USR < 32562 > :PR INTCHRS< 131 > t : X=USR t 3256 

?> 

200 PR 1 NT 3966 , CHR t < 131 » .* s X»USR < 32554 > : PR I NTCHRS < 140) » :X*>USR< 1540 
5 > s PR INTCHRK 176 > t a X»USR ( 154 1 0 ) : PR I NTCHR5 < 1 76 ) t a X-USR ( 32560) * PR I 
NTCHRt < 1 8B > ; : X-USR < 1 54 10 ) a PR INTCHR* < 191 )* a X-USR ( 15416) » PR INTCHR* 
< 191 ) X-USR <32579 > s PR INTCHR* ( 191 > t a x-USR < 32549 ) 

210 PR INTCHR*' 159) r *X-USP< 153V7 ) aPR INTCHR*' 1 45 ) j a X-USR < 32543 > : PR 
INTCHR*! 129 ) ; tX-USR < 15397) 

220 PR 1 NT 39o / , CHR * * l3l ) ; : X-USR • 15404 ) : PR INTCHR*' 190 > ; a X-USR <3255 
4 ) : PR INTCHP*< 191 > ; : X-USR < 32545) s PR INTCHR* < 191 ) ; a X -USR < 32554 ) : PR I 
NTCHR* < l VI ) > s X-USR < 15416) :PR INTCHR*' 137) | a X-USR < 15426) 

230 PRINT3044.C HR*< 1 36 > i a X-USR < 32568 > : PR I NTCHR* < 1 76 > : :X«USR< 1542 
2 >:PR INTCHR*! 109) ; *X-USP < 15435) :PR INTCHR*! 1 90 > ; a X-USR < 32596 > 

235 FOP A-0 f 0300 : NEX T 

240 PR INTCHR*! 159 > t :X-IISR< 30 ' 6 * a PR 1M!CHR*< 14 / ' » a X-IJSR < 15410) a PR 
I NT 8^83 , CHR* ( 1 44 ) i a X-USR ( 154 l A » : PR INTCHR*! 1 AO) t : X-USR t 32579 > *PR I 
NTCHR*' 1 50 ) t a X -USR < 32568 ■ : PR INTCHR* < 1 44 ) ; t X-USR < 15410) 

250 PRINT 3584 . CHR* < 184 > ; a X-IJSR • 15416 ■ : PR I NT3ft4 ’ . CHR * < 190) ? : X-USR 
< 32579 ) : PR INTI HR* < 191 ) ; : X-USR ( 32549 ) : PR INTCHR*! 1 48 ) : a X-USR <32549 
> 

260 PP I NT 371 1 , CHR* < 1 42 > | a X-USR • 32537 » t| R INTCHR*! 141 ) » a X-IJSR! 3255 
4 > :PR INTCHR*! 148 • ; a X-USR < 32554 ) :PR I N T8 T 7? , CHR* ' 1 49 ) » a X-USR < 32568 
) 

270 SE T < 2 . 2 7 > : < -USR < 32562 ) :SL T < » . 25 » s v -ilSR t 32562 > a SE T < 3 . 22 > : X^US 
R • 12554 >: SET <8,20 >: X-USR < 15405 >: SET ! 1 '.2l ) * X -USR « 1 54 1 0 • a SE T • 15,2 
3) : X-USR! 32568 > sSET < 17, 26 ) a X-USR .2 5 a2 • :SLT « 23.27 •: X-USR! 15416) 
280 SI T (24,29 . ;X = |JSR • .32579) :SE T '25. 3, ) s X-USR < .32562 ) a SET < 22, 34 > :X 
-USR <32562 ) * PRINT 36 1, FT": ax=nsk • ’ :554 - : PR INI' I : £ X-USR < 15405 »tP 
R IN I I ; : x-USR < 15410) a PR I NT " V : ■ • -USR < 32568 > :PR I NT M t r X-USK < 15 
410) aPRINT A"; :X = USR < 154 1 A • : • MN T ' T * ; a X-USR < 32579 > 

285 PR I N T "A' : a X-USR < 32519) 

290 PR I NT 'L ' ; a ■ LJSP * 1 539 * > s Pr 1 H I 1 ' t 5 X-USR • *25' « > a PR I NT P" » a v . 

U'1R( 1 539? ) spR INT"PO"a aX-ll'jR! 1*.4*)4 • ;PR INI 'b' r IX-USR! 32554 > :PPINT" 
PL ’ y aX=IJSE 02345) apRINT R < •" : a » = 1 1 3R • 5 C .4':PRINT AN ' ; : x-USk ! 1 54 » 
A > aPR INT ' ' « * ; a X-USR < 15426 • 

295 r R INI N ' : :x*USRf 325A8) 

300 PR JNT ‘ 0"; aX-USK < 1 ' 4J2> SPRINT" 4 /' x : X-llSk • 13435 » »PR INT"0"; : > ■ b’ 



i : £r<X«23,7 • abETf X»2* . 
si «M01 . 3 ) sbLT« x^ioi , 



' s SF T r v ♦ 25 . ft • : SC 
):bi T <X^32.7) sbt 



ile NATAL'; 4^0. sejant t>or t ««dor c s d» 
> <1U« o ANO NOVO stja rcplfto' » 7 T. 



to FORA !0T09 ' :^LT( A, 1 ) a SCI A, ft ► sni 
• 0 H»PH- l 10A: iE T 4 30. P • :5f T <31 . « i aSl 



330 FOpA-OTOiOasn A* 2 1 . ( ' a SF I • A * 1 ,11 • ? 1 * A***. ‘I M«ll • 

NEXT 

140 FORvx0T«)» sSET !»*, 

T 1 1* 103.4 ) :SET« V • 103. 

T<X*v4. f » : .NE V ] X 
400 rR INT 9350. "Our os si nos 
alrgrcs rrsper aura s‘‘ y 600," 

"de pas *» pr osper i dade . 

500 RESET <2.27 • : X-USR ( r ’»"'4 '• aRESET 1 1 , 25 > a X-IJSR < 532 ) a RE si 1 ' 3.22> a j 
U lik ( 5 JO ' a RESET < 0.20 ) aX-IISR <529 > :RL .E T * 13, 21 >ax-USR<52A ■ apf.F I < 15 
. 23 > a x -USR < 524 > sRCSE T < 1 7 . 26 > a X=USk « 522 ) a RLSF T < 23 . 27 ) a X-I)SR i 520 > : 
RESET <24.29) a X-USR <518* a RESET < 25 . 3? ) a X-USR < 5 1 6 ) 

510 RE SET <22. 34) sX-MSP <514) 

520 SET (22 , 34 ) a X-U < 51 4 > :SEt<25. 32 ) a X-USR <516 ) sSET < 24 . 29 ) s X-USR 

< 51B > sSE r < 23,27 ) JX-'ISR (520) a3ET < 17,26) a X-USR < 522 ) a SE T ( 15.23) a x*U 
SR ( 524 ) a SET ( 13,21 ' a <-USR • 526 ) a SET < 8 . 20 > a x*Ubk < 528 ) a SF I i J,22> ax-U 
5R(530) aSET< 1 .25) a x-USR <532) sSET < . . 27 ) a X-USR < 534 > 

530 GOTO 500 

.00 l*-CHR* 134 )+CHP*( 1 73 ) ♦CHR* ( 180)H.'HF *! 1 90 ) ♦ CHR * ' 184 • M MR*’ I 4 
0 ' ♦•CHR*! 95 ) ♦CHP*< 95 > ♦CHR *<95 > ♦CHRV 17?) ♦CHR*< 140) *CHR*< 150*«-CHR* 

< 95 ) ♦CHR* < 1 7 2 > ♦ C HR * < 14«i+CHR*< 150> 

710 L*-STRINR*< 16.32) 

720 FOR X-A4 TO 110 

730 PR IN I ax, T*aFORA-OTOl5sNExTA:S-UnR<2068) 

740 PRINT <JX , L* 

750 NEXT X 

760 FOR V-4T04 7:SET<110.Y) aS-USP < 2500 >sRESET<110,T'sNEX Y 

770 F0RX-110T00STEP-1 a .LT<X.47>:NEXrx 

780 FOR Y-47T00STEP- 1 *SET <0 . Y > a NEXTY 

790 TOR X-0T0127 aSE T < X . o • a NEXT 

800 FOR Y-0T047sSET < 1 27 , Y > * NEXT Y 

810 FOR X-127T01 10STEP-1 aSET<X.47) CNEXTX 

020 FOR X- 1 03 T 0113a SET 'X.4>*SET(X.10)a NEX T 

830 FOR Y«4T0l0tGET< 103. Y > a9ET< 104. Y ) aSET< 1 12, Y ) :SET ' 1 13. Y ) :NE XT 

840 FOR X- 1 02T01 14STEP2JSET !X,3) a SET < X , 1 1 > a NEX T 

850 FOP Y»3T0llSTEP2aSET<iO?.Y>aSET<U4.Y>:NEXT 

860 PR1NT4)181 ,CMP*< l52>tCHR*( 153) : CHR* » 144> r 

070 FOR X-76T08 1 a SET < X , 3 ) a SET <X,ll>aNEXT 

880 FOP X-OT01 SSET <X*74, 4) SSET <X^82,4) :SCT(X*74. 10) • . ** 82,1*» 

sNEXTX 

890 SE T < 73 , 5 ' a SET < 73 . V > a SET < 72, 6 ) aSET < 72 . 0 ) a SE I < 7 1 . 7 > aSl T < 84 . 5 ) a 
SrT»R4. 9) aSET<85.A> a SET <85. 8) aSET<86,7) 

V0O PR I NT ail 65 . 1985": 

910 FOR X-00TO99*SET<X,4)«8ET(X.6> SET i X . 8 > *SE T < X . 10> SNEXT X 
920 PR INT3332, A' ; 

930 PR I NT 3396 . "RED AC AO DE MICRO T[ MAS' ; *RCri ) > >COLOOllE O DEC! 
INATARIO / < < 

■740 PR INT 3943 . "PAR AVION"; :E<3RX« 947*1 1 \ • CT • x ,40> tSFT < X, 45 ) aNEXI 
950 PRINTi)4A0,"Tec Je ))>ENTER<(' p»r.i ahn-lo' ; 

9A0 PR INT 34 AO. "ENTER"; tS=USR< 2068 ) a PR I NT *>4ft 9 , ~ aS = IISR<20 

) :A*-TNKEY*a IT A*-"".9A0 ELSE IF ASC<A*X>n VAO 
970 RETURN 
500O0 END 

6OO0O •>)>>> ROTINA DE SOM PARA lRfc-MO III 2M<<! 

A0020 Z*»STRING*< ’4.32) 

60010 V-VARP I P ( 7* 1 
60040 L-PEEK < V* 1 > 

60050 M-PLF.F < V*2 1 

60060 E=L*25A»m: IF I 32/6/ 1 HfcNE =C 6553 a 
60070 EOR 1 " F TOE ♦ 23 
60080 READX SPOKE I , * 

60090 NEXT! 

A0100 F>OKE 16526, L SPOKE 1 6527, M 
ftOHO DATA 205.127.10.62.1,14.0.69 
60120 DAT A4 7,230.3,211, 255. 13,40.4 
AO 1 10 DAT At A, 247,24.24.3.37, j;-, ,'42.201 
60140 RETURN 
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Sinclair Sinclair Sinclair sine 



Verbando 

Edson Noboru Yamada 



0 programs ‘‘Verbando", como sugere o proprio nome, tern 
como principal objetivo ensinar verbos regulares da lingua 
portuguesa. 

O micro utilizado devera ser compativel com o ZX 81, com 
16 Kb. Podera, contudo, com algumas modifica^Oes, rodar em 
qualquer outro equipamento que utilize a linguagem BASIC. 

0 programa n3o so podera demonstrar como se conjugam 
os verbos, como tambem dar exercicios, inclusive com um pe- 
queno placar para uma maior motivate*. 

DIGITAL AO 

Com o auxflio do comando E do Micro Bug (util itario para 
Sinclair, MS n ? 33), construa uma linha REM com, no mi'ni- 
mo, 91 ou mais caracteres. Feito isto, com o comando M do 



Micro Bug (MS n 9 32), digite a rotina SCROLL, fazendo uma 
minuscula modifica^Io: no enderego 16514, digite o codigo 
00 e depois digite a rotina normalmente, iniciando no endere- 
90 16515 (que deve conter o codigo “2A” etc.). Isto foi feito 
para diferenciar a linha REM de um comando DATA simulado 
(vide, para maiores detalhes, o artigo DATA, READ e RESTO- 
RE no TK, de autoria de Ronaldo de Almeida Santos, publi- 
cado em MS n 9 25). 

Atengao: N 2 o deixe de digitar as linhas com o comando 
REM ; elas nada mais sSo do que DATA simulados. 

E por falar em verbos, voce saberia conjugar os verbos zin- 
cografar, azorragar ou ainda uranicoplastiar? 

Bibliografla 

CEGALLA, D. P. Novissima Grama tica da Lingua Portuguesa. 



1 GOSUE 1500 

15 FAST 

16 LET *=16503 

17 DIM t$ . 11 , IS) 

20 DIM P* <6 . 

30 C IM U$ « 3 ■ D - 11 .3 1 

PEM 0 , A5 , P , AMOS , AIS . AM , RUR 
ftgflS , hUR , AUAM 05 , RUE IS . AUAM El AS 
TE OU . AM05 , ASTE5 . ARAM , ARA . ARAS A 
Ph RRRM05 AREI5 , ARAM .RREI . ARAS A 
RR . A R E M 0 5 . ARE 1 5 hPhO , ARIA , ARIAS . 
ARIA . ARIAMOS , ARIEI5 , APIAM . E . ES E 
EMOS, EIS EM A5SE AS5E5 , ASSE ASS 
EMOS AS5EI5 ASSEM . AP , ARES . AR ARM 
05 , ARDE5 , AREM 

55 PEM A E .EMOS .AI .EM ES EE 
MO 5 . E IS • EM 

60 D EM 0 , E 5 . E EMOS EIS.EM.IA I 
A5.IA IAM0S IE IS . IAM . I .ESTE . EU E 
MOS. ESTES EPAM ERA . ERAS , EPA . EPAM 
OS . ERE 1 5 .EPAM .EPEI .ERAS .EPh , EPEM 
OS ERE IS EPAO , EPIA . ER IAS , ERIA EP 
I AMO 5. ERIE IS ER IAM. A, AS. A AMOS A 
15. AM, ESSE ESSES , ESSE . ESSEMOS E5 
SEIS E55EM, EP EPES.EP EPM05ERDE 
5 . EPEM 

65 PEM E A. AMOS, El. AM .AS A A 
MOS , AIS AM 

-0 ACM I ESS IMOS . IS . EM . IA 1 4 
5.IA IAMOS IE IS IAM.I.I5TE IU IM 
05 , ISTE5 , IRAM IRA . IPAS . IRA . IPAM.j 
5 . IRE 1 5 IPAM IRE I . IPAS , IRA IREMO 
5 IRE I 5 . IRAO IRIA . IRIAS . IRIA IRI 
AMOS • IRIEIS IPIAM . A . AS . A . AMOS AI 
5 AM . 15 SE I5SE5 , I5SE . ISSEM05 . IS5 
EIS I55EM IP IRES IP . IRM05 , IRDE5 
, IREM 

“*4. PEM E A AMOS , I .AM . .AS .a AM 
OS .AIS . AM 

30 PEM EU TU ELE . NOS , UQS . ElES 
100 FOP Frl TO 3 
110 FOP D=1 TO 11 
120 F QP T=1 TO 6 
130 GO SUE 9000 
14.0 LET US ' F T D) =X$ 

145 I p LEN X $ > 9 THEN STOP 

150 NEXT T 

160 NEXT D 

170 NEXT F 

176 FOP F = 1 TQ 6 

130 GOSUE 9000 

190 LET p$ ( F j sX$ 

200 NEXT F 



210 LET A X = X 

220 PEM PRES. IND. PRET. IMP. INC . 
PRET.PEPF. IND. PRET+OUE PEPF . f 

UT DO PPE5 IND. FUT DO PRET . IND 
PRES. DO SUBU. PRET. IMP. SUB J. .FUT 
.DO PRES . IMPERATIUO AFIRMAT , IMP 
E PAT I (jo NEGATIU 

221 FOP F = 1 TO 11 

222 GOSUE 9000 

223 wET T$ (F) =X $ 

224 NEXT F 
230 SLOW 

240 GOTO 4000 

260 PRINT AT 5.4. “UERB07” 

270 INPUT C$ 

275 IF LEN CS<2 THEN GOTO 270 
230 _ET A $ =C S l LEN CS-1 TO ) 

2 55 IF A$= AP THEN LET CJ=1 

230 IF AS = " ER THEN LET CU = 2 

300 IF A $ = IP THEN LET CU = 3 

310 i_ET R$=C$ < TO LEN C$-2) 

320 PRINT AT 0 0. "TEMPOS" 

325 GOSUE 2300 

330 INPUT N 

331 IF N < 1 OP N > 1 1 THEN GOTO 33 

0 

402 CLS 

405 PRINT AT 4 , 0 , T $ ( N ) ; AT 7.0 

406 IF N = 10 OP N = 1 1 THEN GOTO 4 
40 

410 FOR F = 1 TO 6 

411 IF N =7 THEN PRINT -QUE ", 

412 IF N =3 THEN PRINT ”5E 

413 N=9 then PRINT QDO ", 
420 PRINT P$.Fi 

430 NEXT F 

431 IF N < 10* THEN LET PS=9 

440 IF N = 10 OP N = 1 1 THEN LET PS 
=0 

441 FOP F = 1 TO 6 

450 PRINT AT 6 + F PS. 

451 IF * N = 10 AND F = 1 ) OP (N = ll 

an: f = d then goto 450 

452 IF N = 1 1 THEN PRINT "NAO " 

455 PRINT P$, US '.OU .F . N) . " " 

45S IF N = 10 OP N = 1 1 THEN PPINT 

' r ,p'i» Fi , • 1 
460 NEXT F 

470 PPINT AT 16,3. 0 - NOUO UER 
BO E TEMPO ' TAB 3, § - NOUO TEMP 

0- TAB 3. ’ g - MENU 1 ' 

430 LET ZS=INKEYS 

490 IF Z$ "l" OR Z$>"3" THEN GO 



TO 480 

500 FOR F = 1 TO 32 
510 LET L=USP 16554 
520 NEXT F 

530 IF Z$="l" THEN GOTO 0260 
540 IF Z$= "2" THEN GOTO 0320 
550 IF ZS = " 3" THEN GOTO 400O 

1499 STOP 

1500 SLOU 

1501 PRINT AT 8.0,“** U E P 
BAN DO ** 

1510 PRINT AT 13,3. " * EDSON NOB 
OPU YAMADA * " 

1512 PRINT AT 16.9.”- 1984 



AGORA EST 
CONUUGAP 
DA LINGUA 



1513 FOP F = 1 TO 100 

1514 NEXT F 
1520 FOP F = 1 TO 15 
1530 LET K=USP 16530 
1640 NEXT F 
1650 PRINT AT 2,0 P 
OU CAPAC IT ADO A L 
E TE ENSINAR UERBOS 

PORTUGUESA. 

1660 GOSUB 2500 
1670 FOP F si TO 32 
1660 LET l=U5P 16579 
1690 NEXT f 

1700 PRINT AT 2.0. NO MODO I 

NDICATIUO. POSSO CONUUGAP 

NOS SEGUINTES TEMPOS 

AT 3.0 a PRESENTE" . PRETER 

IT 0 IMPERFEITO’ . PRETERITO PE 
RFEITO . PRETERITO MAIS-OUE-P 
ERFEITO a FUTURO DO PRESENTE 
a FUTURO DO PRETER ITO" 

1710 GOSUB 2500 
1^20 FOP F=1 TO 22 
1730 LET L=USR 16515 
1740 NEXT F 
1750 PRINT AT 20. 

UBJUNTIUO, POSSO 
NOS SEGUINTES 
1755 PRINT AT Q 0 
"a PRETERITO IMPERFEITO’' 

UTURO DO PRESENTE" 

1760 GOSUB 2500 
1770 FOP F = 1 TO 32 
1730 LET L=USR 16554 
1790 NEXT F 
1300 PRINT AT 2:0. 

MPERATIUO . POSSO 
NOS SEGUINTES 



NO MODO = 
CONUUGAP 
TEMPOS 
PRESENTE 



NO MODO I 

CONUUGAP 

TEMPOS 
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1610 PRINT AT 9,0. ■ IMPERATIUO 
AFIRMAT IUO . IMPERATIUO NEGh 



TIUO 

1S20 GOSUB 2500 
1330 FOP f=i TO 22 
1640 lEt l=U5P 16530 
1850 NE*T F 

1860 PRINT AT 20. ATENCAO 

EU ARENAS CONJUGO A MRIOPIR 

DOS UERBOS REGULARES 

CERCA DE 6 mil UERBOS. 

1870 PRINT AT - 0 EIS ALGUNS .'E 



RB05 CUE EU NAO 



CON 5 I GO CONJU 



GAP- 

1675 PRINT 



1530 PPINT TAB - 
AUER . F ICAR . 
RGUER E DEMAIS 
TERM INEM EM GU 
1590 PPINT 
1900 PPINT 
SC R ITO 5 SEM 
TIL E 
0GRAFIC05 



SER , TER • H 
PROTEGEP . E 
UERBOS QUE 
G. ETC." 

OS UERBOS SEPAO E 
ACENTO. CEC IDILMA 
OUTROS 5 IN A I 5 OPT 
DE NG5SA lINGUh. 



1910 GOSUB 2500 
1920 FOR F=i TO 32 
1930 _ET l=U5R 16579 
1940 nE*T F 

1950 PRINT AT c ' 4. " AGUAPDE AlGUN 
S INSTANTES P OL'E EU P0S5A 

MEMORIZAR 05 UERBOS . " 

1960 GOSUB 2500 
19 70 FOR F = 1 TO 22 
1930 LET l =U5R 16515 
1990 NEXT F 
2000 RETURN 
2499 STOP 

2510 PRINT AT 20.0 PRESSIQN 

e ms NEU LINE 

PARA CONTINUAP 

2530 IF I Nr- E f ^HEN RETURN 

2540 PRINT AT 20.0 Hi TAB 0 1 



2543 PPINT AT 2 0. 



TAB 0 



2544 FOP p =1 TO 3 

2545 NE*T P 

2550 IF INKEY $ ’ THEN RETURN 

2560 PRINT AT 2 0. H TAB 0 U 




28X0 PRINT 

2520 PRINT TAB 0."1 - PPESENTE 
TAE 0 ” 2 — PRETERITO IMPERFEITO * 

, TRE 0 3 - PRETERITO RERFEITO" 

TAB O 4 - PRETERITO MAIS-OUE-PE 
RFEITO TAB 0 5 - FUTURO DO PRE 

SENTE TAB 0 6 - FUTURO DO PRET 

ER IT 0 ' 

2530 PPINT 




2850 p P I NT 

2860 PPINT - - PPESENTE TAB 0 
"S - PRETERITO IMPEPFEITO* TAB 0 
"9 - FUTURO DO PRESENTE 
2570 PPINT 




2590 PRINT 

2900 PPINT 10- AFIRMATIUO, 11 
- NEGATIUO 
2910 PRINT 

2920 PRINT TECLE 0 N* DO TEMPO 
E NEU LINE ' 

2930 RETURN 
4000 PEM MENU 

4010 PRINT AT 4,Q, ♦ + M 

E N U -*■ * 

4020 PRINT AT 5.4, 0 - CONUUGAP 

AT li. a § - EXERCICIOS" . AT 14 
.4 g - FIM 
4030 let Z$=INKE $ 

4040 IF Z*= THEN GOTO 4030 
4050 IF Z 5 1" OP ZS 3" then GO 

TO 4030 

4060 FOP 5=1 TO 19 
40^0 lET SC=U5P 16530 
4050 NE*T 5 

4090 IF I$= 1 then goto 260 
4100 IF zs= 2 THEN GOTO 5000 
4200 IF ZS = "3" T HEN STOP 

4999 STOP 

5000 PEM EXERCICIOS 

5010 PRINT AT 0.0." X- E X E R 
C I C I 0 S -*■" 

5020 PRINT AT 4. 0. OUE UERBO DE5 
EJA- 

5030 INPUT OS 

5035 IF LEN 0$ 2 THEN GOTO 5030 
5040 LET R$=0$i TO LEN 0$-2» 

5050 lET :*=0S(LEN OS-1 TO i 
5060 IF C S = AP THEN LET CU = 1 

50^0 IF C$= EP THEN LET C J =2 

5030 IF C$= IP THEN LET CJ=3 

5090 CLS 

5100 PRINT AT o 0 . "EM OUE TEMPO 17 



5105 lET dt=0 
5110 GOSUB 2300 
5120 INPUT N 

5125 IF N f 1 OP N > 1 1 THEN GOTO 51 
20 

5130 CLS 

5135 PPINT AT 3 0 , T S i N ) 

5140 FOP Fsl TO 6 



5150 PRINT AT 4+F.3. 
5160 IF Ns"* THEN PPINT 

5162 IF N =5 Then PPINT 

5163 IF N=9 THEN PPINT 

5170 PRINT P$ • F> 

5130 NEXT F 
5190 FQP F=i tq 6 
5195 IF i.N = 10 AND Fsl 
AND F = 1 I THEN PPINT AT 
AO EXISTE" 



OUE 

SE 

"ODO 



OR i N = 11 
4+F . 12 N 



5200 IF i.N = 10 AND Fall OR ' N =1 1 

ANC f-i.i THEN GOTO 5300 

5210 PRINT AT4+F-10 AT L - 



0 ■ 
5212 
5214 
5216 



Input os 

GOSUB 6000 

IF OS = . $ then PRINT 



5215 IF QS= S THEN LET P - " =PT + 550 
5220 IF 0$ vs THEN PRINT AT 21 
0 'ERRADOsaa = = = = = = = = = = = = = = = = = = = = 



5230 PRINT at 4 . *F . 12 , $ 

5240 PRINT AT 0 £0 PT PONT OS 

5250 FOR E =1 TO 15 

5260 NE*T E 

5270 PPINT AT 21.0 

5300 NEXT F 

5310 PRINT AT 14,5 0 - NOUO . EP 

BO E TEMPO ". TAB 5, "g - NOUO ”EmP 

0" TAB Eg- MENU 1 

5320 lET ZSsINKE S 

5330 I r ZS ’1 OP ZS 3 Then GO 

TO 5320 

5340 FOP F = 1 TO 32 
5350 _ET l=U5R 165^9 
5360 NE*T F 

5370 IF ZS= 1 THEN GOTO 5000 

5330 I* ZS= 2 then GOTO 5100 

5390 IF ZS= 3" THEN GOTO 4O0C 

5999 STOP 

6000 lET v'fsPS + US ' C J • F N; 

6010 u.ET 0 5 = 0 $ + 

6020 i-E T OS=OS TO LEN Y S' 

6050 RETURN 
399S fast 

8999 STOP 

9000 IF PEEK X =118 OR X = 16503 th 
EN GOSUB 9060 

9010 LET * S = 

9020 4 _ET XsX-f 1 

9030 IF PEEK *=26 OR PEEr * =115 
THEN RETURN 

9040 let * S = * $ + C HR S PEEK X 
9050 GOTO 9020 
9060 LET *=*45 

9070 IF PEEK X =234 AND PEEK i< + 1 
THEN RETURN 

9030 LET * =X+PEEK (X-2» 42564PEE»- 
(X-l i +4 

9090 GOTO 9070 

9100 REM PROGRAMA 

EDSON NOBORU YAMADA 

9105 PEH E5TR DE ITAQUERA 174 

9106 REM 03200, SAG PAULO/SP 

9107 PEM 

9200 PEM SCROLLER 

EDGARD COSTA CAMPOS PU 



9300 PEH READ DATA RESTORE 

RONALDO DE A. SANTOS 

9301 PEM 

9302 PEM F I h 
9995 SAUE UERBANDg" 

9999 PUN 



Listagem BASIC 



if 514 


00 


2h 


0C 


40 


E5 


li 


21 


00 


16522 


19 


D1 


01 


D6 


02 


EC 


BO 


c=< 


16530 


2h 


OC 


40 


01 


B4 


02 


09 


11 


16 53 5 


21 


00 


E5 


19 


D 1 


E6 


ED 


B3 


16546 


hF 


06 


20 


23 


7 - ' 


10 


FC 


r a 


16554 


2h 


0C 


40 


01 


IF 


00 


3E 


15 


16562 


Cw 


09 


E5 


:• i 


13 


ED 


B5 


23 


16570 


7 0 


0E 


20 


09 


3D 


Cl 


C3 


13 


155-5 


EF 


2R 


0C 


40 


3E 


16 


01 


IF 


16586 


00 


23 


E5 


D 1 


23 


C5 


ED 


B0 


If 594 


26 


^0 


Cl 


3D 


ce 


23 


15 


FI 



Rotina SCROLL 






Edson Yamada tern 14 anos e atualmente cur- 
sa o primeiro ano de Tdcnico em Processa- 
mento de Dados, na Escola Ttcnica Industrial 
Lauro Gomes. Desenvolve ainda programas 
em BASIC, Pascal e Assembler, nas linhas Sin- 
clair (ZX81), ZX Spectrum e Apple e nas cal - 
culadoras HP 1 1C e 15C. 






LIDERANQA EM TECNOLOGIA 
VOLTADA PARA VOCE 

APRESENTA 

r OCOMPUTADOR A 
PRONTO 

CP-500 com duplo drive, dupla 
memdfia (128 kbytes). 30 ve- 
zes mais vetocidade (4mhz), 
com caracteres de acentuapao 
implantados. (EXCLUSIVIDADE 
PLEXXUS) sistema integrado 
com a impressora para folhas 
individuals ou contfnuas. 

Total comunicaoSo micro a mi- 
cro e com os demais sistemas. 

Um completfssimo rol de softs. 
(850 programas). para fazer de 
seu computador um instrumento 
proftssional. Processadores de 
texto (m^quina de escrever ele- 
trdmea vai parecer coisa do pas- 
sado), planilhas eletrdnicas. 
agenda processual integrada. 
biblioteca....etc. 

Prepo imbatlvel e totalmente fi- 
nanciado. 

Implantamos, instalamos, trei- 
namos, operamos, apoiamos. 

TELEFONE 

( 011 ) 34 ^ 01 ^^ 34 ^^# 
show-room 

rua maria paula. 36 - 1 9 and. 
sdo paulo. 





SUPRIMENTO E 
COISA SERIA 



• DISKETES: 5 1 4 e 8 e fitas magneticas 
-marca DATALIFE VERBATIM 

• ETIQUETAS PIMACO PIMATAB 

• FORMULARIOS CONTINUOS E PASTAS 

• FITAS P IMPRESSORAS EM GERAL 
. ARQUIVOS PARA DISKETTES 



PRODUTOS COM 
GARANTIA 
E ENTREGA 
IMEDIATA 



AV. PRES. VARGAS N° 482 GR. 201 203 
Tel.: KS 1021)2531120 
Telex: 10211 34318 
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Sinclair Sinclair Sinclair sine 



Geografia 

Mauricio Sa/omSo Jardini 



Elaborado com espirito de jogo, este 
programa tern como proposta exercitar 
o conhecimento da localiza 95 o geogra- 
fica de determinadas cidades dentro do 
mapa do Brasil. Criado para crian 9 as que 
ja tenham conhecimento do que seja 
Norte, Sul, Leste e Oeste; inclui tambem 
outras cidades importantes. 

0 programa nao determina uma 
localiza^ifo precisa dos lugares, mas sim 
um posicionamento em rela^o aos 
pontos cardeais, litoral, interior e a 
memoriza^ao dos nomes. Devido a bai- 
xa resolu^ao, algumas cidades coinci- 
dem em determinadas coordenadas. 
Assim, se o computador por acaso as 
escolher, so Ihe restara entSo. . . um 
chute! 

Originalmente estruturado para o 
ZX81, ele e compativel com todos os 
micros desta mesma linha e facilmente 
conversivel para o BASIC dos outros, 
podendo ainda ser jogado entre amigos 
ou ate mesmo na sala de aula. 

EXPLICANDO 0 PROGRAMA 

Linhas 10 e 20 - apresenta^ao. Cha- 
mam a sub-rotina de desenho do mapa. 
Nesta sub-rotina, cada linha PRINT cor- 
responde a impressao de uma das 21 
linhas da tela. Entretanto, a partir da 
listagem, e possivel, ao inves de escre- 
ver CHRS 3, colocar o seu equivalente 
grafico,“B'o que acelerara a impressao 
e diminuira a satura^ao de memoria. 

Linhas 40 a 1 10 - regras do jogo e 
apresentasao das cidades programadas. 

Linhas 1 20 a 620 - reserva de espa- 
90 na memoria ; defini^ao das 40 cidades 
programadas e variavel “apagador” G$ . 

Linhas 630 a 730 - o computador 
vai printar, na tela, as cidades progra- 
madas, uma a uma, de maneira que o 
jogador possa memorizar o nome e a 
posi^o corrcspondentc. 

Linhas 735 a 750 - zera a contagem 
e convida ao inicio do jogo propria- 
mente dito. 



Linhas 752 a 780 - o mapa e redese- 
nhado e o contador e a pergunta apare- 
cem do lado direito. 

Linhas 790 a 1000 - duas cidades 
vao ser escolhidas aleatoriamente e uma 
delas tera sua posi<;ao piscando na tela. 



O quadro de controle pedira uma res- 
posta, quando, ent5o, podera ser dado 
ao computador o numero escolhido. An- 
tes de entrar com o numero, uma tecla 
qualquer devera ser pressionada para 
interromper o circuito de espera, fa- 



I PEM " GE0GPAF IP I" 

5 PEM E M. 5. JARDINI 
10 G05UB 1250 
20 PAUSE 500 
30 CL5 

4.0 PPINT UOCE UIU UM MAPA DO 
BRASIL. *' 

50 PPINT 

60 PPINT UM PONTO UAI PI5CAP 
HO MAPA M05-TPPNDO UMA CIDADE.AO 
LflDO APAPE-CEPAO DOIS NOMES DE 
CIDADES tCOMSEUS NUMEPOS • E UOCE 
DEUERA E5C0-LHEP A CIDADE OUE CO 
RPESPONDE AOPONTO NO MAPA." 

70 PRINT 
75 PAUSE 500 

30 PPINT "0 NUMERO OUE UOCE E5 
COLMEU SEPA CONFER IDO PELO COMPU 
TADOP E SE ESTIUER CERTO , UOCE 
MARCAPA UM PONTO.SE ESTIUER EPP 
ADO ELE UAI M05TRAP A RE5P0ST A C 
EPTA. 

90 PPINT 
95 PAUSE 500 

100 PRINT PPESTE ATENCAO . POI 5 
AGOPh 0 MAPAUAI SEP REDESENMADO 
E TODAS AS CIDADES PROGRAMADAS 
UA0 APARECERUMA POP UMA DURANTE 
5 5EGUND0S." 

102 PPINT 

105 PPINT • r20 0UEST0E5 > '* 

110 PAUSE 1500 
120 CLS 

130 DIM F$ . 4.0 , 18) 

14.0 i^ET F| i 1 1 = " 3 1145A0 PAULO" 
150 LET F§ 1 2' = 3515RI0 DE JANE I 

PO" 

160 LET F$ i 3) = '2722BPASILIA 
170 LET F$ . 4.1 = "2707PORTO ALEGPE 

130 LET F| (5) ="2917BEL0 HORIZON 
TE 

190 LET F$ 6’ = 2711CURITIBA 
200 LET f S 7) =' 3618UIT0RIA" 

210 ^ET F§(6) =" 3623SALUAD0P " 

220 LET F$(9) = 3825APACAJU" 

230 LET f$ . io. S-4130PECIFE" 

24.0 LET FS ( .11) = -4.032NATAL " 

250 LET FS ‘ 12 ^ =:"3734.F0RTAlEZA 
260 LET FS li3> S-3334.SA0 LUIS- 
270 lET FS (U» ="2735BELEM" 

230 LET F s < 15 ) = " 153 3MANAUS " 

290 LET FS > 16> ="2120CUIABA" 

300 LET FS ' 17) =" 1916C0RUMBA ' 

310 LET F S < 18) ="2621 GO IAN I A 
320 LET F$ i 19) ="4.031JOAO PE5S0A 

330 LET F$ i 20» = "0725RIO BRANCO” 

34.0 LET Fs -21) * M 3431TERESINR- 
350 LET F$ «2£) = ” 2709FLOR IANOPOL 

IS" 

360 LET F$ i 23) = " 402SMACE 10 " 

370 LET F* <24) ="2438MACAPA" 

330 LET F S 1 25 ) = " 1339B0A UI5TA 
390 LET Fs '26» =”1327P0RT0 UELHO 

410 LET F$ i 27) s "20 34 SANTA REM" 



LET FS <2S' ="2730MAPABA" 

LET FS '29' ="2440AMAPA" 

LET f$ , 30! =”2715BAURU" 

LET F s i 31 1 = " 30 15CAMP INA5 " 
LET F $ * 32) = "2621 ANAP0L IS- 
LET FS (33) s"2513L0NDRINA" 
LET fs i 34.' ="3532S0BPAL" 

LET fj i 35) ="230SBAGE" 

LET f$ i 36.i S-3621ILMEUS" 

LET fs < 37> x"2716PIBEIRA0 PP 

LET F S 1 38 ' ="2710JOINUILE" 
LET FS « 39* ="3931CAMPINA GPA 

LET Fs ' 40i ="3932MACAU" 

DIM G$ < 1 , IS) 

LET GS ' 1) = " 

FOP N=1 TO 40 
i G05UB 1250 

i LET X =UAL F s < N . 1 TO 2> 

» LET V=UAL FS <N . 3 TO 4> 
i PRINT AT 19 , 17 ; F s i N , 5 TO ) 

' FOP P=1 TO 60 
• PLOT x , Y 
) UNPLOT X,Y 
) NEXT P 

I PPINT AT 19 . 17, GS ' I' 

) NEXT N 
! LET 5=0 
) CLS 

> PRINT AT 10 , 9 UAMOS COMECA 

) PAUSE 250 
! CLS 

| || -aMHIHMMMI 

) next o 

L PRINT AT 0,22, "[ 

> PRINT AT 3,22," 

L PRINT AT 4,22;"| 

5 FOP N = 1 TO 20 

) PRINT AT 1 , 26 . N 
5 G0SUB 1250 
) LET U = I NT (RND*40)+1 
? t_ET T si NT ( RND *40 ) ♦ 1 
? IF T=U THEN GOTO 300 
5 LET X=UAL FS(U,1 TO 2) 

5 LET Y=UAL F S < U , 3 TO 4) 

3 LET H = I NT iRND*2)+l 
5 IF H=1 THEN GOTO 910 
5 PRINT AT 19. 14. U. AT 19.16 " 
r S MU , 5 TO ) 

3 PRINT AT 20, 14, T, AT 2016,' 
7 $ 1 T . 5 TO > 

3 GOTO 930 

3 PPINT AT 19, 14. T. AT 19,16 
: S <T . 5 TO » 

3 PRINT AT 20. 14, U. AT 20.16 
r S <U,5 TO t 
3 FOP P=1 TO 20 
3 UNPLOT X . ■ 

3 PLOT X .Y 
3 nevt t P_ t _ 

3 PLOT X , Y 
3 UNPLOT X , Y 
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1000 IF INKE. S= ■ THEN GOTO 980 
1010 INPUT Zi 

1020 IF CODE Z5 29 OP CODE IS 37 
THEN GOTO 1010 
1030 LET Z=UAL IS 
10 40 if ; ij then print at 7,22 



!=U THEN PRINT AT 7,22 



1060 IF Zsu THEN LET 5=S+1_ 

1070 PPINT AT 9 22 AT 

11 24,5 , N 

1080 IF Z=U THEN PPINT AT 16 T 
FS<U,5 TO 

1090 IF Z U THEN PPINT AT 21,0. 



" " FS(U,5 TO i 
1095 FOP p=l TO 60 
1100 PLOT ' , y 
1104 UNPL0T x , 

1108 NEXT P 

1110 print at - 22 w mw x w k wm jm 
1115 PRINT AT F. 22. ■■HHHii 
1120 PRINT AT 16 , 17 GS I 1 4 TO 
AT 19 1 4 . G S ( 1 ) . AT 20 . 14 . G S 1 1 1 
1125 IF Z U THEN PPINT AT 21.0, 
GS i 1 ' +GS 'll TO 8) 

1130 NEXT N 

1140 If 5 < =8 THEN PPINT AT 21.0, 
"NADA BOM.PEUISAP- 
1150 IF 5 > 8 AND 5 =15 THEN PPINT 
AT 21,0 "MU IT 0 BEM.TENTE MELMOP 
AP ' 

1160 IF 5 > 15 AND S < =19 TMEN PPIN 
T AT 21 .0. "0TIM0.V0CE 0UASE ACER 
T0U TODAS" 

1161 IF 5=20 THEN PRINT AT 21.0, 

' E * CELENTE . UOCE ACEPTOU TODAS" 

1162 PAUSE 1500 



1162 PAUSE 1500 
1164 CL5 

1166 PRINT PPOXIMO CANDIDATO " 
1168 PPINT 

1170 PRINT ONDE UOCE GUER COMEC 
AP° " 

1172 PRINT 

1174 PPINT A-PEGPAS DO UOGO 
1176 PRINT 



A -REGPAS DO UOGO 



1178 PRINT B-CIDADE5 PROGRAMADA 
S" 

1180 PRINT 

1132 PPINT "C-DIRETO NAS ESC0LMA 

S" 

1134 PRINT 



1136 PPINT 
MIDA' 



APEPTE A LETPh ESC0L 



1133 INPUT Is 
1190 CLS 

1192 IF ls=CHPs 33 TMEN GOTO 10 

1194 IF IS=CHPS 39 THEN GOTO 100 

1196 IF IS=CHP$ 40 THEN GOTO 735 

1240 REM SUBPOT INA MAPA 

1250 PPINT AT O.o.CHPS 131.CHPS 

4 

1260 PRINT TAB 5 CMP $ 6.CMP$ 0 I 
MP$ 5. TAB 10 CHP $ 135.CHPS 3 CHP 

5 4 

1270 PPINT TAB 5.CHPS 134, CMP $ 0 
CMP S 134 . C HP $ 131. CHP S 6. CHRS 1 
CHP $ 135. CHP S 1 CHP S 131 
1230 P PINT -^AB 2 ; CHP S 135. CHP S 6 
CHPS 131 CHRS l.TAB 11 CHRS 6 C 
HP S 2 CHRS 1 CHP $ 131, CHPS 4 
1290 PRINT ThB 2. CHPS 133 TAB 11 
CHP* 2 CHPS 134. CHPS 6. CHRS 0 C 
HP S 2 CHPS 134 CHPS 131 CHPS 131 
1300 PRINT TAB 2, CHPS 133 TAB 19 
CHPS 134, CHRS 4 

1310 PRINT TAB I, CHPS 135. CHPS 1 
•ThB 20, CHP $ 134 

1320 PRINT TAB l.CHPS 5 , TAB 20 C 
HP $ 5 

1330 PRINT TAB 1,CHPS 5 TAB 4 , CH 
RS 135, CHPS 4 TAB 19, CHPS 133 
1340 PPINT T AB l.CHRS 2. CHPS 134 
CHPS 131, CHPS l.CHPS 133, TAB 13 
CHPS 135, CHPS 1 

1350 PPINT TAB 6,CHP$ 3, CHRS 134 
, T AB 18, CHPS 5 

1360 PPINT TAB 3 CHRS 130, TAB IS 
. C HP $ 5 

1370 PPINT TAB 9, CHPS 132 . TAB 18 
. CHPS 5 

1380 PRINT TAB 9, CHPS 133, TAB 17 
CHR$ 133 

1390 PPINT TAB 9, CHRS 133. CHPS 1 
31 ThB 16, CHPS 131 CHPS 6 
1400 PRINT TAB 11. CHPS 134 TAB 1 
4 , CHPS 135. CHPS 3 

1410 PPINT TAB 11, CHRS 2. CHPS 4. 
CHRS 135 CHPS 1 

1420 PRINT TAB 11, CHRS 135, CHRS 
l.CHPS 133 

1430 PRINT ThB 11. CHPS 5, CHPS 0 
CHRS 6 

1440 PPINT TAB 11. CHRS 130 CHP$ 

129 

1450 PRINT AT 14.0, 

1460 PRINT AT 16.0. fTTl T f 1 I ITT 
1470 PETURN 



zendo aparecer “ E ” para depois entffo 
se pressionar o numero. Para evitar que 
a resposta certa esteja sempre colocada 
na mesma pos^ao, existe uma variavel 
de controle “HP que muda esta pos^ao, 
evitando que se possa responder sempre 
o primeiro ou o segundo nome. 

Linhas 1010 a 1130 — controle da 
resposta. Soma um ponto se estiver cer- 
ta ou apresenta a resposta certa, em caso 
de erro. 

Linhas 1140 a 1162 - comentarios 
em fun^ao dos pontos obtidos apos 20 
quest 6 es. 

Linhas 1 164 a 1 196 - apresenta^o 
das op^Oes de mudan^a de jogador — 
op^ao de voltar ds regras do jogo para 
quern chegou depois ou ainda nao en- 
tendeu muito bem, voltar £s cidades 
programadas para uma nova memoriza- 
$ao ou ir diretamente para as escolhas. 

Linhas 1240 a 1470 - sub-rotina de 
desenho do mapa. 



Mauricio Salomao 6 Engenheiro Mecinico 
formado pela FEZ, em 1978, e trabalha em 
inspecao de qualidade de equipamentos para a 
Usina ie Tucurui em Grenoble, na Franqa. 



Multiusuario MTS/IV-M, da MAQUIS 

COM PR E UMELEVE SEIS 

DD DD DD OD DD ID 



Quando voce adquire um Multiusuario MTS/IV-M," 
esta na verdade adquinndo a possibilidade de 
trabalhar com ate seis terminais ao mesmo tempo, 
utilizando somente uma Unidade Central de 
Processamento. 

Voce divide todo o seu trabalho por seis, e sobra 
muito mais tempo para todas as outras tarefas que a 
administra^ao de uma empresa requer. 

Cada um dos seis terminais ligados ao MTS/IV-M 
dispoe de 64K de memoria. Assim, voce pode 
executar inumeras tarefas independentes e 
simultaneas em cada terminal. O MTS/IV-M pode 
ser interligado a computadores de grande porte. via 
simulacao de terminais IBM, Burroughs, etc. 

Nao perca esta oportunidade. 

O MTS/IV-M e mais um Equipamento 
com o Padrao MAQUIS de Qualidade. 




"Compativeis com todos os Micros MAQUIS; 
Sistema Operacional MDOS-MB compativel com 
CP/M 2.2; 

Pode acoplar como perifericos ate 4 acionadores 
de discos flexiveis de 5 1/4 800 KB; e/ou 
4 acionadores de discos flexiveis de 8 " 1 .2 MB; 
e/ou 2 acionadores de discos rigidos Winchester 
de 5, 10, 40 e 70 MB (cada unidade). 



TECNOLOCIA 
F. S1STFM \s 



MAOIIIS 



Av. Cal6g«ras, 6-B — »obr»JoJa — Cantro — RJ. 

Tal.: (021) 240-4934 

Av. dos I marts, 999 — Indlanbpolls — SAo Paulo — SP. 
Tata.: (011) 543-3511/543-3221/543-3752 



STUDIO B 








Trs-80 trs-80 trs-80 trs-8 



Acentos 

Helen o F. Araujo 



Quern nao tem cao ca 9 a com gato, diz o velho ditado. Neste 
artigo tentaremos mostrar como os usudrios dos micros compa- 
tiveis com o TRS-80 modelo III podem implementar alguns 
dos acentos da nossa lingua. 

Antes do programa propriamente dito, falaremos alguma 
coisa sobre os DCBs (Device Control Block), um nome pompo- 
so para algumas rotinas da ROM dos micros compativeis com o 
TRS-80, responsdveis pelo tratamento dos perifericos. Aborda- 
remos este assunto num mvel suficiente para que se saiba usar 
os DCBs, particularmente o DCB da impressora. Caso voce 
esteja interessado em se aprofundar no tema, veja na figura 1 
os endere^os dos DCBs do TRS-80 modelo III. 

No total, os DCBs represen tarn 24 bytes (8 para cada dispo- 
sitivo). Na figura 1 estao relacionados somente os dois bytes 
(LSB e MSB) dos endere^os do Driver (rotina da ROM) requisi- 
tado num dado momento para efetuar uma comunica^So com 
o periferico. Isto significa que, para imprimir um cardter, o re- 
gistrador C e carregado com o codigo deste cardter, e logo ap6s 
e chamada uma rotina da ROM locaiizada no endere^o 0962 
(decimal). Veja os 2 bytes do DCB da impressora: 

194+(3* 256) = 962. 



SO •••• ACENTOS 

60 '••• Copi|r i ghT < c ) 1 984 . He 1 enci r. Araujo 

70 '£»»* pr ogr ani.« perm I » qrrur <C erd i lh« > e <A c/tll»,na P-SOO 

uaando quulquer Editor dc Trxto* no CP-500 
80 'Execute primeiro este programs e depots carregue scu editor. 
Voce conscqutra' os caracteres na foraa abaixo* 

90 '<0) >C cedilha, mnusculo 

(0> > a coa til. ainusculo 

<N> ) A coa til, aaiusculo 

<F> >C cedilha, aaiusculo 

100 CIS 

110 FOR N-0 TO 44 j READ ZZ »P0KE-256*N . 22 tNEXT 
120 POKE 16422. 0*P0KE 1 6423 . 255 * 'Desv ■ a DCB da lapressora 
130 POKE 16561 ,246*P0KE 1 6562 . 254 i CLEAR 50» 'Protege aeaor ■ a 
140 FOR N-l TO 3000iNEXT*NEU 

150 DATA 121.254.64.194,12.255.62,199.79,195.194,3,254,38.194,23 
.255,62.207,79, 195, 194,3,254,35, 1 94 . 34 , 255 . 62 , 206 , 79 , 195 , 194,3.2 
54.37. 194, 194.3.62. 198.79. 195, 194.3 



Listagem BASIC 







0050 j 


ROT I NR 


RCENTO 


VERS*0 1.0 JUN/8* 






0060: 


Copyright <c ) 


H® 1 *no F.Rraujo 






0070 


IMPCRR 


EOU 


03C2H 






0080 




ORG 


FFOOH 






0090; 










FFOO 


79 


0100 




LD 




R.C 


FFOl 


FE*0 


0110 




CP 




*OH 


FF03 


C20CFF 


0120 




JP 




N2 . FFOCH 


FF06 


3EC7 


0130 




LD 




R , C7H ; Troc« p/C®d.min. 


FF08 


*F 


01*0 




LD 




C.R 


FF09 


C3C203 


0150 




JP 




INPCRR 


FFOC 


FE2& 


0160 




CP 




26H 


FFOE 


C217FF 


0170 




JP 




N2.FF17H 


FFl 1 


3ECF 


0180 




LD 




R.CFH ; Troc* p/« c/til 


FF13 


*F 


0190 




LD 




C , R 


FFl* 


C3C203 


0200 




JP 




IMPCRR 


FF17 


FE23 


0210 




CP 




23H 


FF19 


C222FF 


0220 




JP 




NZ.FF22H 


FF1C 


3ECE 


0230 




LD 




R,CEH;Troc« p/R c/ti 1 


FF1E 


*F 


02*0 




LD 




C.R 


FF1F 


C3C203 


0250 




JP 




IMPCRR 


FF22 


FE25 


0260 




CP 




25H 


FF2* 


C2C203 


0270 




JP 




N2, IMPCRR 


FF27 


3EC6 


0280 




LD 




R.C6H 


FF29 


*F 


0290 




LD 




C , R 


FF2R 


C3C203 


0300 




JP 




IMPCRR 






0310 




END 







Listagem Assembler 



DISPOSITIVO 


ENDEREQO 


CONTEUDO 






vTdeo 


16414 


115 


'LSB 


DO 


DRIVER 




16415 


4 


'MSB 


DO 


DRIVER 


TECLADO 


16406 


36 


'LSB 


DO 


DRIVER 




16407 


48 


'MSB 


DO 


DRIVER 


IMPRESSORA 


16422 


194 


•LSB 


DO 


DRIVER 




16423 


3 


'MSB 


DO 


DRIVER 



Figura 1 



Agora tudo que se tem a fazer para trocar um cardter a ser 
impresso por outro e justamente INTERCEPTAR a chamada 
da ROM, mandando-a para uma rotina criada por voce, que 
tratard a informa^ao a ser impressa antes da mesma ser envia- 
da para a impressora. 

0 programa acentos faz exatamente isto. Voce digita um ca- 
rdter, e a impressora immime outro. Ele troca: 

<@> por <C cedilha> minusculo; 

<& > por <a com til> minusculo; 

<#> por <A com til> maiusculo; 

<%> por <C cedilha> maiusculo. 

De posse das listagens em Assembler e BASIC, flea fdcil 
voce implementar o programa, substituindo e/ou acrescentan- 
do outros caracteres da lingua portuguesa. Na listagem em As- 
sembler, o segundo byte dos codigos das linhas 130, 180, 230 
e 280 correspondem aos valores hexa dos caracteres da impres- 
sora P-500, da Proldgica. Para usar o programa com outro tipo 
de impressora, verifique os eddigos dos caracteres que voce de- 
seja usar no manual de sua impressora e depois substitua os by- 
tes das linhas mencionadas. 

COMO USAR O PROGRAMA 

Se voce optar pela listagem em BASIC, basta digitar o pro- 
grama e dar um <RUN>. Ele fica numa drea protegida, mas 
voce ndo precisa se preocupar com isto, pois este detalhe foi 
incorporado na listagem BASIC. Caso voce entre com o progra- 
ma usando o Monitor, fa$a o seguinte: entre com os eddigos 
em Hexa diretamente no Monitor. Reset o micro e responda 
com um valor inferior a 65280 a questdo da Mem. Usada?. A 
seguir, no modo imediato do BASIC, digite: <POKE 16422, 
OiPOKE 16423, 255>. 

0 unico inconveniente desta rotina e que, apesar de voce 
conseguir estes caracteres na impressora, terd que se acostumar 
a digitar e ver no video o simbolo de arroba como se fosse um 
C cedilha, assim como os outros caracteres substitui'dos. 



Heleno F. Araujo 6 funcionirio publico e hi cerca de dois anos co- 
mepou a se interessar por microcomputadores. Atualmente possui um 
CP -500 e uma impressora P-500. 
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A Compumiqo 
vai deixar voce 
com a melhor 
impressao 
doUnitronAPII 



PROMOgAO DE NA3AL 



O MELHOR 
CONJUNTO AP1I, 
DRIVE ELEBRA, 
MONITOR COMPO, 
IMPRESSORA MO- 
NICA E INTERFACES 
GRATIS M6DULO 
MONIGRAE. 



CR$19 



990 

mil 



PRECO VALIDO Art 20/12/85 



Nao existe nada mais 
pcssoal do que uma impressao 
digital. Ela e unica. Ninguem 
tem igual. O mesmo acontece 
quando voce compra o seu 
UNITRON AP II na 
COMPUMICRO. 

Aqui voce tem um atendi- 
mento personalizado e exclusive. 

O que este atendimento 
tem de exclusivo? E que na 
COMPUMICRO voce tem todas 
as informa^oes do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas, 




todos de mvel superior, estu- 
da o seu caso e indica-lhe a 
melhor configura^ao para as 
suas necessidades. Se voce nao 
puder vir ao nosso escritorio, 
onde sera recebido com todo 
conforto e tera a sua disposi- 
$ao um analista com todo o 
tempo disponivel para 
mostrar-lhe o produto, nos ire- 
mos ate voce. E apos a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tencia tecnica, etc... 

E sabe quanto voce paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por voce. 

Pessoalmente. 




INFORMATICA EMPRESARIAL LTDA 

RiuiSctccIcSctciiibri),99- 1 1. andar 
Tel.: PBX ( 021 ) 224-7(Xr 
CEP 2(X)S() - Wo de Janeiro - R) 

I Av. Paulista. 726 - conj. 506* 

^ CEP 01362 - Sao Paulo 
Tel.: (Oil) 288-4492 
287-6448 









Marcel G. de Albuquerque 



Sinclair Sinclair Sinclair sine 



Hffen 



Muitas vczes deparamo-nos com duvidas como: anti-infec- 
cioso ou antiinfeccioso? extraordinario ou extra-ordinirio? Foi 
para tentar resolver estas e outras duvidas que este programa, 
que ocupa 4 Kb e roda no TK-82 e similares, foi concebido, 
baseado nas Instrugoes para a Organizagdo do Vocabuldrio Or - 
togrdfico da Lingua Portuguesa , de 1943 a 1981, e no livro Or- 
tografia , Pontuagao, Crase , de Adriano da Gama Kury. 

0 PROGRAMA 

Ao executi-lo, sio pedidos o prefixo e o vocibulo que o 
segue. Na variivel X S 6 armazenada a ultima letra do vocibulo 
(linhas 200 e 210). A partir daf, o programa procura a regra 
em que se enquadram os elementos dados. 

Observe-se que sio emitidas mensagens auto-explicativas 
para os prefixos “pre”, “pos”, “pro”, “ex”, “bem” e “co”, os 
quais nlo tern regras “objetivas” para emprego do hifen (linhas 
220, 225, 300 e 540). 

REGRAS 

1 ? Regra: Para os prefixos incluidos na linha 230, sempre 6 co- 
(230) locado o hifen (M$) na linha 490. 

2? Regra: Se o prefixo for “semi” ou terminar em “a” ou “o” 
(240) (e for igual a um dos prefixos da linha 520), haveri 
hifen se o vocibulo come 9 ar com a letra-vogal, “h”, 
“s” ou “r” (520). Porem ha particularidades como a 
duplica^ao do “s” ou “r” em cromo + soma = cro- 
mossoma, mas nlo em filo + Sofia = filosofia; a sub- 
rotina 880 trata disso. Ji a linha 550 cuida de pecu- 
liaridades tipo proto + organismo = protorganismo, 
micro + onda = microonda, etc. 

3? Regra: Se o prefixo terminar em “e” ou “i” e for um dos 
(250) citados em 580, ocorre o hifen se a primeira letra do 
vocibulo for “h”, “r” ou “s”. A sub-rotina 880 
preocupa-se com a duplica^o do “r” ou “s” (mini 
+ saia = minissaia). Na linha 585 sao tratados os ca- 
sos tele + escritor = telescritor, j i sobre + excitar = 
sobreexcitar. 

4? Regra: Se o prefixo terminar em “r”, haveri hifen se a pri- 
(260) meira letra do vocibulo for “h” ou “r” (600); con- 
tudo hi a exce 9 io hiper + hepatia = hiperpatia (sub- 
rotina 630). 

5? Regra: Para prefixos terminados em “b”, hi hifen quando 
(270) seguidos de elementos come 9 ados por “r” ou “b” 
(650). Se o vocibulo iniciar-se com “h”, ocorre a su- 
pressio do “h”, exemplo: sub + humano = subuma- 
no (655). 

6 ? Regra: Se o prefixo terminar em “d”, ocorre hifen se hi 
(280) um “r” ou um “d” iniciando o vocibulo (670). 

7? Regra: Para os prefixos “mal”, “pan” e “circum”, hi hifen 
(290) se o vocibulo come 9 a com letra-vogal ou “h” (690). 



8 ? Regra: Para os prefixos terminados por “s”, a linha 730 cui- 
(3 10) da da supressio do “h” em casos como: des + huma- 
no = desumano. 

9? Regra: Com os prefixos terminados em “n”, normalmente 
(315) escrevem-se juntos. Como casos particulares, tem-se: 
in + habil = inibil (770). 

10 ? e 11 ? 

Regra: Os prefixos terminados em “u”, “c” e “m” escre- 

(320X325) vem-se geralmente ligados ao vocibulo. 

Se o prefixo enquadrar-se em alguma destas regras, apareceri 
na tela a nova palavra formada, centralizada e com uma moldu- 
ra; caso contririo, a linha 330 emitiri a mensagem prefixo nao 
cadastrado. Para se entrar com outra palavra, basta apertar 
qualquer tecla, menos N e BREAK. 

EXCE0ES 

O programa funciona para os 125 prefixos do quadro 1 e 
deve funcionar para muitos outros. Como exce 95 es encontra- 
das, podemos citar: 

Hexaspermo, Hidrelitrica, Macroestesia, Metasterno, Mul- 
tisciente, Pentaspermo, Perisfirico, Perisperma, Polisperma, 
Protdxido, Retroestemal, Sobreestadia, Sobreleva 9 ao, Sobres- 
sair, Sobressalto, Sotopor, Sotoposto e Termesteisa. 



A 


BIO 


ENDO 


HOMO 


NUPER 


SOBRE 


AB 


BRAQUI 


ENTRE 


IN 


OB 


SOCIO 


AD 


BRONTO 


EQUI 


INFRA 


OFTALMO 


SOTA 


AERO 


CARDIO 


ES 


INTER 


PALEO 


SOTO 


AGRO 


CATA 


EU 


INTRA 


PAN 


SUPER 


ALEM 


CIRCUM 


EX 


ISO 


PARA 


SUPRA 


ALO 


CIRCUN 


EXTRA 


JUSTA 


PENTA 


TELE 


AMBI 


CIS 


FERRO 


LINGUO 


PER 


TERMO 


AN 


CLORO 


FIBRO 


MACRO 


PERI 


TETRA 


ANA 


CO 


FILO 


MAL 


PLURI 


TRANS 


ANFI 


CONTRA 


FITO 


MEDIO 


POL I 


TRI 


ANTE 


COSMO 


FONO 


ME I A 


POS 


UNI 


ANTI 


CROMO 


FOTO 


MEIO 


PRE 


VICE 


ANTROPO 


DE 


GEO 


MESO 


PRO 


VIZO 


AQUEM 


DENT I 


GRA 


META 


PROTO 


ZOO 


ARQUI 


DENTO 


GRAO 


MICRO 


PS I CO 




ASTRO 


DERMO 


HEPTA 


MINI 


QUILO 




AUDIO 


DES 


HETERO 


MONO 


RADIO 




AURI 


DI 


HEXA 


MORFO 


RECEM 




AUTO 


DIA 


HIDRO 


MULTI 


SEM 




BEM 


DIS 


HIPER 


NEO 


SEMI 




BI 


ELETRO 


HI PO 


NEURO 


SOB 





Obviamente, por ser a lingua portuguesa muito rica e sur- 
preendente, muito provavelmente aparecerao novas situa 96 es 
nio previstas no programa, as quais o leitor poderi acrescentar 
ao programa original. 

Observe-se tamb£m que, para palavras formadas por compo- 
si 9 io, tipo guarda-notumo, o programa nao funciona. 

Um outro detalhe t que se o prefixo terminar com uma das 
seguintes letras, “e”, “i”, “o”, “r” e “u”, o vocibulo que o se- 
gue deve ter no minimo tres letras. Devido a rotina de centrali- 
za 9 io e a moldura da palavra resultante, o prefixo mais o hifen 
mais o vocibulo devem ter no miximo 28 caracteres. 
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Estd e d Cdpd ao CATALOGO OO COMPUTER SHOPPING MOORE N? 03. 
O veiculo afitidl Ud Moore Fornecedor Total pard in format ica Deltnitivamente TOTAL. 
Nele voce encontra mais de 400 prcxJutos e iervi(,'o& de mformatfta e, a partir de agora, 
micros pessoais, perifericos, impressoras e softwares apiicativos 
t tudo pkq com o suporte da mdior e mais bem ire mad j Equipe de Vendas do pais, mais de 
50 Filiais de Vfenda, inumerds Lojas de Informatica e o Central de Atendimento do 
Serv-Moore paradar sempre a melhor solu(,do Ariote esses lelefonese ligue 

MOORE fornecedor total para informatica 

Formularios Continuos, Micro-lnformaiica, Supnmenios e Acessdnos. 



Pdfd ntdiOrCS inlQftr^O^S, 

n.i Gf n de Sao ftayte: 875.3316 
De oulros i ■ X j (0! s )B00 331 6 
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COMPUTER 

SHOPPING 

MOORE 










BRASILTRADE CENTER 

Comercio, Industria e Participagdes S.A. 

COMPUTER SHOPPING 



Mesas 

para ^V Cr * 1.399.000 

M icrocomputadores 

Fabricagdo propria • Cores discretas • Desenho moderno 



■ 

BTC-05 M 
BTC-03 

^Cr$ 999.000 




BTC-02 M 



Cr$ 1.049.000 



BTC-04 M i 
0 BTC-01 M 1 

Cr$ 799.000 



EQUIPAMENTOS 

Micros das linhas: Sinclair • TRS-80 • CCE • Unitron • 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 

SUPRIMENTOS 

Perifericos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formul6rio Contfnuo • Cabos 
• Arquivos para Disketes • Etc. 

SOFTWARE 

Programas e Jogos variados para todas as linhas e 
marcas de Computadores 

VIDEOS 

Curso de IngISs em video cassete • Telao • Suporte 
para TV • Transcod ificagao para todos os sistemas • 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabegaa 
Baterias para 2 e 8 hs. • lluminadores • Cabos de 
extensao para C3maras • Bolsas para Camaras e Videos 



Nas lojas Brasil Trade Center, vocStamb£m 
encontra video-same, cartucho com josos, 
som, telefonia, etc., das melhores marcas. 

VISITE UMADENOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 

Matriz: Av. Epitacio F^ssoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 

Filiais: Rua da Assembleia, 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 

Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 

Rua Lopes Trovao, 134/Sala 201 
Niteroi-RJ — Tel.: 710-3659 

Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 



SERVIQO EXPRESSO REMETEMOS PARA T0D0 0 BRASIL 



OFERTA VALIDA COM A APRESENTAQAO DESTE ANUNCIO 



HIFEN 



1 RF.M EMPREGO DO HIFEN 

2 REM MARCEL G DE ALBUQUER8UE 
1® SLOW 

3® LET 



4® LET Mt*"" 

5® PRINT AT 1 1 , ®| "••••■•* EMPR 
EGO DO HIFEN " 

7® PRINT AT 2 1 . 0 | "PREF I XO ?" 

00 INPUT At 

90 PRINT AT 1 3 , < 20-LEN A%>/2»" 
PREF I XO * ":At 

10® PRINT AT 21,01 " VOCABULO *> ( 
3 LETRAS NO MINIMO)'' 

11® INPUT Bt 

120 IF LEN Bt<3 THEN GOTO 11® 
125 PRINT AT 21, 0;" 

130 PRINT AT 15. (20-LEN Bt>/2»" 
UOCABULO * ";Bt 
180 LET A*LEN At 
19® LET B*LEN Bt 
20® LET Xt=At<A> 

210 LET Zt=Bt< 1 ) 

220 IF At*"PRE" OR At*"POS" OR 
At 'PRO" THEN GOTO 4 70 
225 IF At="EX" THEN GOTO 04® 

230 IF At=Bt OR At*"ALEM" OR At 
*" AQUEM" OR At-'RECEM" OR At="VI 
CE" OR At="VI ZO" OR AS-"SOTA" OR 
At="SOTO" OR At* "NUPER" OR At*" 
SEM" OR At="GRA OR At*"GR AO" OR 
<At*"MEIO" AND Bt< >"AMB IENTE" > 
OR At "ME I A" THEN GOTO 49® 

240 IF X t *" A' OR Xt«"0" OR At*" 
SEMI" THEN GOTO 510 
250 IF Xt="E~ OR X*-"I" THEN GO 
TO 57® 

26® IF Xt="R " THEN GOTO 600 
270 IF X t = "B " THEN GOTO 650 
200 IF X t= "D" THEN GOTO 67® 

29® IF At“"MAL" OR At *"P AN" OR 
At-"CIRCUM' THEN GOTO 690 
300 IF At="BFM" THEN GOTO 710 
310 IF Xt»"S" THEN GOTO 73® 

315 IF Xt*"N" THEN GOTO 770 
320 IF Xt="U" THEN GOTO 860 
325 IF Xt*"C" OR Xt s "M" THEN GO 
TO 35® 

33® PRINT AT 19 , 5: "PREF I XO NAO 
CADASTRADO." 

340 GOTO 430 

36® LET T t = At ♦ Mt ♦B t 



370 LET J*LEN Tt 
375 LET K»<27-J>/2 
380 PRINT AT 17,K;Ct( TO J*4> 
400 PRINT TAB K : : TAB ( 31-J)/ 
2; Tt : " •" 

42® PRINT TAB K:CS< TO J*4> 

43® FOR F * 1 TO 11 

44® SCROLL 

45® PRINT AT 21,31* 

460 NEXT F 
465 RUN 

470 PRINT AT 19.®*" COM HIFEN S 
E PREF I XO ACENTUADO . " 

48® GOT 43® 

490 LET Mt*"-" 

50® GOTO 350 
510 GOSUB 80® 

520 IF ( At="CONTR A" OR ( Af="EXT 
RA" AND Bt< > "ORD I NAR I O" ) OR At*" 
INFRA" OR At*" INFRA' OR At*"SUPR 
A" OR At*"ULTRA" OR At="AUTO" OR 
At* "NEO" OR < At*"PROT O" AND Bt< 
TO 3 ) < > "ORG" ) OR At = "PSEUDO" OR 
At * "SEM I ') AND < Zt*"A" OR Zt*"E 
" OR Zt*"I" OR Zt="0" OR Zt="U" 
OR Zt*"H" OR Zt="R" OR Zt*"S"> T 
HEN LET Mt*"-" 

53® IF At* "ME IO" THEN LET Mt*" 

540 IF At«"CO" THEN GOTO 75® 

550 IF Mt*"" AND B t ( 2 > < > "N" AND 
<Xt*Zt OR <Xt*"0" AND ( Zt»"E" 0 
R Zt*"I") AND Bt ( 2 > *"S" ) ) THEN L 
ET B t*B t ( 2 TO B> 

555 IF At* "H I PO" AND Zt*"A" THE 
N LET At* "HIP" 

560 GOTO 350 
57® GOSUB 08® 

58® IF ( At* "ANTE" OR At= S08RE" 
OR At*" ANT I " OR At*"ARQUI " ) AND 
<ZS*"H" OR Zt»"R" OR ZS»"S"> TH 
EN LET Mt*"-" 

585 IF ( Xt="E" AND XS=Zt AND At 
< > "SOBRE" AND At< >"RE" ) OR (At*" 
SOBRE" AND B*<2>«"S"> THEN LET B 
t*Bt ( 2 TO B) 

59® GOTO 350 

60® IF Zt»"H" OR Zt="R" THEN LE 
T Mt*"— " 

610 IF At*"HIPER" AND Bt( TO 3> 
*"HEP" THEN GOSUB 630 
62® GOTO 35® 

63® LET Bt*Bt(2 TO B> 



640 LET Mt- 
645 RETURN 

650 IF Zt="R " OR Zt*"B THEN LE 
T Mt*"-" 

655 IF Zt="H" THEN LET Bt*Bt<2 
TO B> 

66® GOTO 350 

670 IF Zt="D" OR Zt="R THEN LE 
T Mt*"-" 

680 GOTO 350 

69® IF Zt* A" OR Zt*"E" OR Zt*" 
I" OR Zt="0" OR Zt="U" OR Zt*"H" 
OR ( X t="M" AND Zt- N") THEN LET 
Mt*"-" 

695 IF Xt=Zt THEN LET Bt*Bt(2 T 
O B) 

700 GOTO 350 

71® PRINT AT 17,0: "COM HIFEN SE 
O VOCABULO TEM V I DAAIJT ONOMA NA 
LINGUA. OU QUANDO A PRONUNCIA O 
REQUER." 

72® GOTO 43® 

730 IF Zt* "H" OR Xt-Zt THEN LET 
B t*Bt < 2 TO B > 

74® GOTO 350 

750 PRINT AT 19,®*" IRREGULAR, 
NAO HA CR I TER I OS." 

760 GOTO 430 

77® IF Zt= H" THEN LET Bt*Bt<2 
TO B) 

78® IF ( At="CIRCUN" OR At- IN") 
AND <Zt*"E" OR Zt*"I"> THEN GOS 

UB 800 

785 IF Xt*Zt THEN LET Bt=Bt<2 T 
O B) 

79® GOTO 35® 

800 FOR 1*1 TO 3 
81® IF B t < I > *"S" THEN LET Bt=Bt 
(I TO B) 

82® NEXT I 
830 RETURN 

840 PRINT AT 18.0r"COM HIFEN SE 
""EX"" TEM O SENT IDO DE CESSAME 
NTO OU ESTADO ANTERIOR" 

85® GOTO 430 
86® GOSUB 880 
870 GOTO 350 

88® IF <Zt*"S" OR Zt*"R" > AND B 
t< TO 3 ) < > "SOF" AND 8i( TO 3><>" 
RAM ' THEN LET Mt = Zt 
89® RETURN 
900 SAVE "HIFEN" 

910 RUN 



Hifen 

PARA O ZX SPECTRUM 

Se voce tern um micro compativel com o ZX Spectrum 
(TK90X ou Timex 2068), podera usufruir deste programa. 
Basta fazer as seguintes modifica^Oes na listagem, elaboradas 
pelo CPD de MICRO SISTEMAS: 

1 - Substitua as linhas da listagem principal, de 70 a 110, 
pela listagem abaixo. Observe que em alguns micros, o coman- 
do SOUND equivale a BEEP. As linhas 120, 125 e 130 da lista- 
gem principal nao deverao ser digitadas. 

70 INPUT "PRE.F IXO ? ";A4 

80 PRINT AT 13, (20-LEN A%>/2;" 

PREFIXO = "jA* 

90 INPUT "VOCABULO ? <3 LETRAS 
NO MINIMO) ";B% 

100 IF LEN B%< 3 THEN LET 
FOR F= 1 TO 10: SOUND .025,-1: N 
EXT F: GOTO 90 

110 PRINT AT 15, (20-LEN B%>/2:" 

VOCABULO = ";B % 

2 - Substitua as linhas da listagem principal, de 430 a 465, 
pela listagem abaixo: 

42 A POKE 23692,12 
430 FOR F=i TO 11 
440 PRINT AT 21,31?" " 

450 NEXT F 

452 POKE 23692,2 

465 GOTO 50 

3 - Nlo digite a linha 910 da listagem principal e troque a 
linha 900 por: 

900 SAVE "HIFEN" LINE 460 

^ 

Marcel G. Albuquerque 6 Engenheiro Civil, trabalhando atualmente no 
INPD, da Universidade Federal de A/agoas. 



DEIXE O SEU CP500 
FALAR MAIS. 

NEW BASIC 

40 novas instrucoes 



Enrique^a o vocabuiftno BASIC do seu 
TRS (CP500 e compaliveis). com 40 novas 
instrupoes dedicadas a parte griftca que 
darao ao BASIC do seu equipamento uma 
nova dimensio 



m 




PREgO 12 ORTNS 



SE voce TEM UM CP500 E/0U UMA P500 NAO P0DE 

DEIXAR DE TER ESTE SOFTWARE 



Para os possuidores de uma impresaora 
PSOO este software permit a expiora r a sua 
capacidade grafica im piemen undo uma 
tela logica de alta resol ugao reconfigura- 
vel em at® 360 • 360 pontos 

GRAFICOS GERAOOS PELO NEWBASIC 
NA IMPRESSORA PSOO 

Desejo receber o software NEWBASIC 
assmalado no anuncio 

□ Mediante envio de cheque nominal a OISCON 
CMST DE COMP E SERV LTDA 
(o porte e por nossa conu e sua encomenda 
chega mais raptdo) 

Cheque Banco 

□ Mediante pagamento contra recebimento 
do software pelo reembolso posUl. 
acrescido de despesas postal 9 




DistrlbuigS ode Computadores 
e Servigos Ltda. 

Rua tlheut. 126 C«a - Parque Crur Aqu««> 

Rto Varnwe* o - C£P 40000 - 
TEL 071 245-1294 Salvador BA 
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Conhega melhor os Sistemas Especialistas, um dos resultados da 
pesquisa e aplicagao das tecnicas de Inteligencia Artificial. 



Sistemas Especialistas 

Emmanuel Lopes Passos 



COMPARAgAO ENTRE PROGRAMAS EM 


INTELIGENCIA ARTIFICIAL 


PROGRAMAS CONVENCIONAIS 


- Primariamente processamento 
simbol ico 


- Primariamente processamento 
numer ico 


- Solugoes Heuristicas (passos da 
solugao estao implicitos) 


- Solugoes algoritmicas (passos 
da solugao explicitos) 


- Estrutura de controle usualmente 
separada do dominio do conheci- 
mento 


- Estrutura de controle e infor 
magao integrados 


- Facil de modificar e atualizar 


- Dificil de modificar 


- Algumas respostas erradas sao 
toleradas 


- Apenas sao aceitas respostas 
corretas 


- Respostas satisfator ias sao 
usualmente aceitas 


- So a melhor solugao possivel 
e aceita 



Figure 1 - Com par of do entre os programas em I A e os convencionais. 



S istemas Especialistas sdo progra- 
mas criados para cumprir fun- 
g 6 es especificas em determina- 
das dreas do conhecimento hu- 
mano e geralmente “simulam" num 
computador, atravds de regras de infe- 
rencia, o raciocinio e conhecimento de 
um especialista em algum dominio. Esta 
nova geragdo de programas — que come- 
90 U a evoluir a partir da ddcada de 60 - 
utiliza em grande parte tecnicas de Inte- 
ligencia Artificial (IA), e vem despertan- 
do um interesse crescente no publico, 
uma vez que oferece a possibilidade da 
interagdo imediata, via linguagem natu- 
ral. 

A revista MICRO SISTEMAS, em suas edigOes de outubro / 
82, fevereiro/ 84, mar9o/84, maio/84 e maio de 85, publicou 
artigos do Prof. Antonio Costa Pereira sobre Inteligencia Arti- 
ficial e Sistemas Especialistas. Sugiro aos leitores que nao te- 
nham nenhuma forma 9 ao academica na area de Informatica 
que leiam tais artigos, pois os mesmos fomecem todo o lingua- 
jar peculiar que 6 utilizado na area de IA. 

INTELIGENCIA ARTIFICIAL 

Inteligencia Artificial s3o tecnicas que, utilizadas em progra- 
mas, fazem os computadores mais inteligentes. Esta tecnologia 
emergente, que vem atraindo grande publicidade, visa basica- 
mente dois objetivos: fazer maquinas e processos computacio- 
nais mais uteis e com entendimentos inteligentes. 

Os programas computacionais com os quais a IA esta rela- 
cionada sdo primariamente processos simbdlicos envolvendo 
complexidade, incerteza e ambigiiidade. Esses processos sdo 
usualmente aqueles para os quais ndo existem solug< 3 es algorit- 
micas, e 6 necessdrio pesquisar a solugdo. 

Portanto, IA trata com tipos de problemas (solutes) que o 
ser humano encontra continuamente no mundo. 

Essa forma de solugdo de problema difere daquela utilizada 
nos cdlculos cientificos e de engenharia, que sdo essencialmen- 



te de natureza numerica e para os quais solugdes sdo conheci- 
das e produzem respostas satisfatdrias. 

No entanto, como os programas em IA tratam com palavras 
e conceitos, nem sempre uma solugdo correta d garantida. Al- 
gumas respostas erradas sdo toleradas, assim como ocorre quan- 
do um ser humano resolve um problema. 

Veja na figura 1 as principal caracteristicas dos programas 
que utilizam a IA versus os de iinguagens convencionais. 

Os elementos basicos da I A sdo: Pesquisas Heuristicas; Re- 
presentagdo do Conhecimento; Linguagens e Ferramentas de 
IA e o Raciocinio L 6 gico. As suas principais aplicagOes sdo: 
Processamento de Linguagens Naturais; Visdo por Computa- 
dor; Resolugdo de Problemas e Gerador de Pianos e os Siste- 
mas Especialistas. 

Veja na figura 2 como estdo distribuidos estes elementos. 

• Pesquisas Heuristicas — os primeiros trabalhos realizados 
em IA foram feitos utilizando as pesquisas heuristicas em gra- 
fos (arvores). As pesquisas heuristicas sao as estrategias para se 
tentar achar mais rapidamente a solugdo de um determinado 
problema, sendo utilizadas, por exemplo, para testar teoremas 
ou resolver problemas de xadrez. 

• Representagao do Conhecimento — Pesquisadores de IA 
concluiram que procedimentos inteligentes ndo sdo caracteri- 
zados tanto pelos metodos de raciocinio quanto pelo conheci- 




Hardware especificamente desenvolvido para aplica^oes em I A, com 
seu respectivo software basico (PROLOG, LISP, Smalt alk SO ) , da Tek- 
tronix. 



mento armazenado. Isto porque um ser humano constrdi, du- 
rante a vida, um vasto conhecimento que Ihe permite, num de- 
terminado momento, tomar-se um especialista. 

Nota-se dai que sdo necessdrios metodos para “modelar" es- 
ses conhecimentos, colocando-os prontos para serem acessa- 
dos. Como resultado, vemos que a drea da Representagdo do 
Conhecimento d uma das mais ativas da IA. 

• Linguagens e Ferramentas de IA - Por excelencia, as lin- 
guagens mais usadas neste campo sdo o LISP (List Processing 
Language, surgida nos EUA em 1957) e o PROLOG (PRO- 
gramming LOGic, surgida na Europa em 1972). Todas as fer- 
ramentas (software) foram desenvolvidas em LISP e PROLOG 
para expressar conhecimentos, formular sistemas especialistas 
e ajudar na programagdo basica. 

• Raciocinio de Sentido Comum e L 6 gico — 0 pessoal da 
drea acha que o raciocinio de sentido comum e uma das coi- 
sas mais dificeis para se modelar no computador, por ser consi- 
derado raciocinio de baixo nivel, uma vez que esta diretamen- 
te iigado a aspectos subjetivos como vivencia e senso prdtico. 
Por exemplo, a afirmagao “o ledo comeu o rate” 6 satisfatdria 
para o homem e para a mdquina. Jd uma afirmagao “o rato co- 
meu o ledo", embora aceitdvel pela mdquina, 6 improvavel de 
ser aceita pelo homem. £ necessdrio entao repassar a mdquina 
certas regras para que ndo aceite este tipo de afirma 9 do. Como 
representar sentido comum no computador e um assunto cha- 
ve em IA. Acha-se que num futuro muito prdximo esse proble- 
ma serd resolvido (serd nos computadores de 5? gera 9 do?). 

Uma outra drea muito importante em IA 6 a Programa 9 do 




Processamento de 
Linguagem Natural 



/ Pesquisas 
/ Heuristicas 


Representa-\ 
gao do \ 

Conhecimento 1 


1 Linguaqens 
1 de IA e 3 
\Ferramentas 


Raciocinio 1 
de Sentido J 
Comum e / 
Log ico I 



Figura 2 - Elementos e aplicafdes da Inteligencia Artificial 



L 6 gica, atraves da qual podemos deduzir alguma coisa a partir 
de um conjunto de fatos (premissas). Programa 9 do L 6 gica 6 
uma area em franca expansdo. 

Entre as principais dreas de aplica 9 do da I A estdo: 

• Processamento de Linguagem Natural - £ um dos ma lo- 
res objetivos da pesquisa em IA. Consiste em desenvolver pro- 
gramas que entendam a linguagem natural falada e escrita, vi- 
sando a intera 9 do com maquinas por meio desta mesma lin- 
guagem (ndo em linguagem computacional). 

Para um programa computacional interpretar uma cornu- 
nica 9 do em Unguagem natural, o “conhecimento" necessdrio 
envolve : 

- A estrutura das senten 9 as 

- 0 significado das palavras 

- A morfologia das palavras 

- As regras de conversa 9 do, etc. 

• Visao Computacional — £ a area que estuda a possibili- 
dade de um computador ver, identificar e entender o que ele 
estiver observando, com o objetivo de localizar o que estiver 
procurando. O processamento de imagem 6 parte desse estudo. 

Os Sistemas Especialistas sdo tambem uma das aplica 96 es 
mais importantes. 

SISTEMAS ESPECIALISTAS 



Sdo sistemas projetados para emitir uma decisdo ou parecer 
sobre uma drea do conhecimento humano, da mesma forma 
que um especialista. Esta decisdo e apoiada em uma justificati- 
va, originada a partir de uma base de conhecimento. 

0 desenvolvimento desses sistemas 6 feito principalmente 
em LISP (comunidade americana) ou PROLOG (comunidade 
europeia), admitindo-se tambem outras linguagens, desde que w 
tenham facilidades para tal. m 



] Seu micro nao 
pode parar 

CHAME MS: ASSISTENCIA VITAL EM MICROS 



IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 

A MS trabalha desde 1971 em assist&ncia especializada em 
microcomputa 9 do que se estende desde check-ups preventi- 
ves at6 a substituigdo de pegas, de unidades perif&ricas ou do 
prbprio micro durante o tempo em que ele estiver em preparo 

Tenha ao seu lado a melhor assistencia tecnica em micro- 
computadores do pais. 

FAQA COMO AS GRANDES EMPRESAS: 

Varig, Petrobras, Pao de Agucar, Agos Villares, Philco. etc. 

Contrato de manutengdo com a MS 6 garantia de bom funcio- 
namento de seu equipamento. 

Solicite nosso representante ou faga-nos uma visita. 



Assistencia Tdcnica a Microcomputadores. 
! Rua Dr. Astolfo Araujo, 521 tone: 549-9022 
1 Cep.: 04012 - Pq. Ibirapuera - Sdo Paulo. 
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SISTEMAS ESPECI ALISTAS 



Evolucao dos Sistemas 
Especialistas 



Esses sistemas sao compostos por tres partes fundamentals: 
a base do conhecimento (knowledge base), que contem toda a 
sabedoria do especialista; a base dos fatos (data-base), que con- 
tem os dados relativos ao dominio que esta sendo explorado e 
o motor de inferencia (inference system), que e o programa in- 
terpretador. 

Veja na figura 3 os principais tipos de Sistemas Especialis- 
tas 

ESTRUTURA DO SISTEMA IDEAL 



EVOLUCAO DOS SISTEMAS ESPECIALISTAS 



HEARSAY 



HEARSAY- I I 



HEARSAY-III 



HARPY 



PUFF 



•RITA 



•ROSIE 



BASE DE 



USUAKIO 



PROCESSADOR 

DE 

k L INC U AG EM , 



INTERNIST 



(REMCVIVEL) 



EXPERT 



•OPS4 



JUST! FI 1 



SAINT 



MATH LAB 



MACSYMA 



DENDRAL 



META-DENDRAL 



MECANISMO DE INFER fcNCIA 



DENDRAL (1966 - Stanford) - Sistema para anatise 
da massa espectrogrdfica-quimica. 

HEARSAY II (1980 - Carnegie Mellon University) - 
Um dos primeiros sistemas capaz de en tender um discurso 
de 1000 pa lavras. 

MYCIN (1972-1976 - Stanford University) - Sistema 
Especialista que faz a diagnose e trata de inf echoes no san - 
gue; foi o primeiro projeto voltado para a area medico , e 
utihza inferencias do tipo se ... ent§o. 

TEIRESIAS (1977-1980) - Sistema Especialista que 
ajuda na construgdo da base de conhecimento (knowledge 
base). 

PUFF (1977 - California Medical Center) - Sistema 
Especialista que faz a diagnose de doengas pulmonares. 

PROSPECTOR (Stanford Research Institute) - Siste- 
ma Especialista que descobre depdsitos de minerals (fez 
uma descoberta de uma mina no valor de USS 100 mi- 
Ihoes). 

ROSIE ( 1981-1982 ) - Sistema desenvolvido pela Rand 
Corporation para construir Sistemas Especialistas; foi ba - 
seado num primeiro pro to tipo chamado RITA (1976). 

PSG (1973-1976 - Carnegie Mellon University) - £ 
uma linguagem para sistemas de regras de produgao (Sis- 
temas Especialistas), para estudar e modelar o conheci- 
mento humano; gerou a serie OPS (linguagem para siste- 
mas de produgao), onde R1 representa o maior sucesso 
dessa aplicagao. 

R1 -£ um Sistema Especialista para configurar o DEC- 
VAX. 

SAINT (1961), SIN (1967), MATHLAB, MACSYMA 
(•1971) - Sistemas Especialistas adequados a manipulagdo 
simbolica de formulas matemdticas. 

EXPERT (1979) - Linguagem para Sistemas Especia- 
listas que construiu o CASNET, um Sistema Especialista 
para a diagnose e tratamento de gbucoma. 



* 3 LANEJAMSNTO 



INTER PR ETADOR 



AGENDA 



SEQ0ENCIADOR 



REFORCADOR 

DA 

aXSISTRJCIA 



SOLUCAO 



OUADRO NEGRO 



• Justificador - Serve para dizer “como” se chegou a uma 
conclusSo. 

• Interpretador - Serve para inferir describes de situa^Oes 
a partir de dados conhecidos. 

• Sequenciador - Garante a correta seqiiencia de execu^o 
das operates. 

• Refor 9 ador de Consistencia - Garante que as concludes 
estejam de acordo com os fatos e regras conhecidas em etapas 
anteriores. 

IMPLEMENTA^AO DE SISTEMAS ESPECIALISTAS 

Os protdtipos desenvolvidos em universidades hoje sao fei- 
tos em LISP, assim como a maior parte dos sistemas america- 



APLI CACAO 



CATEGORI A 



infere descrigao de situagoes atraves de 
observances (analise de imagem, entendi- 
mento da fala ) . 

infere consequencias provaveis de situa 
goes dadas (predigao demograf ica ) . 

(diagnose medica ) inf ere sobre o mal fun- 
cionamento das fungoestex: sangue), irre 
gularidades, causa e efeito. 



nos - vendidos no comercio que geralmente rodam em ma- 
quinas de grande porte, ou dedicadas a LISP, e tern seu pre^o 
entre USS 30 mil a USS 100 mil. 

0 tamanho de memoria e importante: Os Sistemas Especia- 
listas necessitam colocar o conhecimento do expert na maqui- 
na (atraves de regras de produ£§o, por exemplo) e essas regras 
consomem muito espa 9 o. Em micros de 8 bits, pouco se pode 
fazer; ja os PC's sao ambientes mais adequados a IA e Sistemas 
Especialistas. 

Nos EUA, existem varias firmas que trabalham nessa area 



Interpretagao 



Diagnose 



projeto de agdes a serem tomadas para se 
chegar a um objetivo (robo, programagao 
automat ica, problemas agoes militares. 



Planning System 



Figura 3 - Tipos de Sistemas Especialistas. 
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QUE PROGRAMA SE 
FAZNOESCURO? 




MESMO NO ESCURO, 
O PROGRAMA VAI 




O DE SEMPRE; 
MEU BEM! 



FICAR NA MEMORIA. 

Utilizando UNIVOLT nos 
microcomputadores de 
sua empresa, a falta de 
energia jamais 
interrompera o trabalho, 
eliminando os riscos com 
a perda da memoria. 
UNIVOLT e o gerador 
eletronico mais pratico, 
portatil e que dispensa 
instalapoes especiais. 

UNIVOLT O PAR 
PERFEITO PARA 
OS MICROS. 




REPRESENTANTES: • Sao Paulo (011) 858-4744 • Campinas (0192) 2-1575 • Rio de Janeiro 
(021) 201-7643 • Porto Alegre (0512) 22-5288 • Curitiba (041) 262-8423 • Blumenau (0473) 22-4422 
• Belo Horizonte (031) 225-6425 • Brasilia (061) 243-5359 • Goiania (062) 224-7271 
• Salvador (071) 245-7812 • Aracaju (079) 224-7776 • Maceid (082) 221-2617 • Recite (081) 325-3189 

• Beldm (091) 222-5122. 



iDunitron 

engenharia, industria e comercio ltda. 

Rua Antometa Leitio. 110 ■ Freguesia do 0 ■ S&o Paulo 
PABX (01 1) 858-4744 - TX (01 1) 32003UEIC-BR 



PROGRAMAS PARA O TK 90-X E SINCLAIR SPECTRUM 



ClENCtA MODERN A DE COMPUTAQAO LTDA. 

Av. Rio Branco, 156 - Sub-Soto Loja 127 - CEP 20.043 - Centro - RJ 
Tata.: (021) 262 5723 ou 240-9327 



RRORRANAS PARA O T* 40-X f SINCLAIR SPECTRUM 



100 STYX 

101 rssst 



103 NO# AC l and 
8* I MRS 
106 XADRE2 
10? HORACE HUN 



117 SPECTRAL INVA 
OCRS 

113 RHCN1X 



(HATE AS AAANMA9 . DCROI S AS R1RANMAS 
trULNl»« OS INSETOS CON INSCTICI- 

bA e AN A SUE 8ROTC 0 OIRASOO 74. 

i TRAS1 C I ONAl CORRIDA DC CARROS 

TIRO FLIRERANAi 74 . i 

(JOQO K OANON) 74.1 

> FUJ A SOS NONTROS PR*- H 1 S TON 1 COS CN DI 
VERSOS NIVEISI 74.1 



CIO MO LAS I R INTO TIRO COI 



ITIRO FROOOCR) 74. i 

IFLIRCRANa CON 7 TARUtCIROSt 24. < 

ITENTE ROUBAR O NA I OR NLR«RO M OSJETOS 
RRILMAMTCS NO NCNOR ESRACO DC TENRO . 

SEN SCR RCOO RCLOS SC RE 6 SAM OS RROTE - 
TEOCN 77.1 



ITIRO INVADERS t : 

I SENS AC I ONAL oanc-destrua TODOS OS AC I - 

EN I GENAS ATE CHEOAR A NAVE MAE) 

IDCCOLC CON O SEU CACA C DC S T RUA TODOS 

os ininioos » ; 



t TRAD I C I ONAL. FLIOMT SIMULATOR EN RORTU- 

OUES) ; 

IR1LOTE M VERDADC UN CARRO DC FORMULA 
1 CN OlVERSOS AUTODROMOSI 



IVOCC EN R 1 lOTO DC UN MCLICORTERO.CUJO 
OS Jl T I VO EH SAL WAR SERES HUMAMOS 3 

ENOCIONANTES ETAPAS » 77.000 

(VOCE 01NIJC UMA NOTO ESU I RADA C/ARMAS. 

TENT ANDO NATAR OS IMVASORCS DC UMA DEN 

SA FLORESTA) 27.000 

tENTCRR* OS ROLVOS CON AS REORAS EV1- 

TAMDO SER REROI 27.000 

t VEJA SC COMaCSUE FUJtN DO LABIRINTO SEN 

SCR RCOO RCLOS NONTROS I 27.000 

* VOCE E PILOTO DC UN BOMRARDC 1 RO DA SC 
OUNDA OUERRA NUNC I Ac. CU JO UBJETlvO E 

DCSTRU1R AVIOES .RONRAS vl ETC...! 27.000 

ITENTE ARAMMAA TODOS OS OSJETOS RROTE - 

01 DOS RCLOS NONTROS .47 FASCSr 27.000 

I VOCE TEN SUE RE*«TRAA NAS NURALMAS M 
UNA VCLHA C 1 DADE . DOM I MADA POR E HORNES FOR 
NIOAS. PARA SAL VAR A VIDA DC UMA NOC I NHA . 

EN S I VMTRSOS NlvCIS DC OIFICULDAOCI 27.000 

l icasu.** R / AR AFR4AR AS REROLAS . SC MSA - 

CIOMAL 27.000 

I RE BUS 0 TESOURO MO LAS I R INTO- INOCIO* 

MANTE t 27.000 

(RCSOATE OS RRIS10NE 1ROS DC UMA E8TRAM- 

HA PR I SAO NARAVILMOSO. » 27.000 

IRILOTE SEU CACA SORRS 0 RIO RAID S DCS 

TRUA OS ININIOOS. I 2S.OOO 

UOOO M TEN! 8 COM O MICRO. DC VERAS SEN 

SAC 1 ONAL 24.000 

rilESOUIE CON O HORAC10 MAS NEVES > 27.000 

t RE NON T E 0 SEU FORUCTE C FUJA DO RLAMS - 

TA. DIVERSAS FARES. NAOMIFICO 24.000 

INAROUE PONT OS E FUJA DOS NOMSTROS EM 
DIVERSAS FARES. ENOCIONAMTE DENAIS... 27.000 

KWAMAS AEONR AARIAO MANUAL EN RORTUOUEB. 

I LISTA COF^LETA DC LlVROS C RROORANAS. 



Desejo receber os segumtes programas p>elo{s) qual(is) pagarei a quantia de Cr$ 

N?s PROGRAMAS: 

NOME: 

END*.: 

Cl DADE UF. CEP [ 

Para tal estou enviando um cheque nominal a Ciencia Moderna de Computack) Ltda. enderegado a ATI. Av. Presidente Wilson, 165 
Grupo 1210 - Centro. CEP 20.030 Rio de Janeiro-RJ. Despesas de Correio inclusa. 







SISTEMAS ESPECIALISTAS 



SUPRIMENTOS PARA CPD FILCRES: 



especifica de Sistemas Especialistas. Lee Hecht, Presidente de 
uma dessas companhias — a Teknowledge -, disse: “a unica 
coisa que n6s dizemos a nossos clientes e que podemos econo- 
mizar tempo e dinheiro; aumentar suas opera^oes e faze-las 
mais efetivas e eficientes". 

O mercado no Brasil, contudo, ainda nao despertou para es- 
sa tecnologia. Mas brevemente podemos esperar o uso de Siste- 
mas Especialistas tambem aqui. 

O QUE TUDO ISSO SIGNIFICA 

O estado da arte em 1A esta se movimentando rapidamente, 
com novas companhias entrando no ramo, novas aplica 9 des 
surgindo e as t^cnicas existentes ate hoje sendo formalizadas. 

0 que se ve atualmente sao Sistemas Especialistas prolife- 
rando - centenas de prot6tipos ja foram construi'dos. Alguns 
deles sao maquinas LISP (nos EUA, j a estao construindo ma- 
quinas PROLOG) e o custo computacional ja esta sendo redu- 
zido. Alem disso, numerosas interfaces de linguagem natural e 
sistemas de visao por computador estao no mercado. 

O Japao tern na 1A sua base para os computadores de 5? 
gera^ao, e suas pesquisas no momento consomem USS 500 
milhOes num objetivo de 10 anos. 

A Inglaterra tern formado esfoi^os com o programa AL- 
VEY, de Tecnologia de Informatica Avan 9 ada, na parte de IA. 

A comunidade do Mercado Comum Europeu estabeleceu o 
programa de pesquisa ESPRIT - European Strategic Program- 
me on Research in Information Technology. 

Nos EUA, o programa de pesquisa DARPA, que inicialmen- 
te tinha um custo de USS 20 milhOes anuais em pesquisas de 
I A, desde 1984 se expandiu drasticamente para concorrer com 
o projeto de 5? geragSo japones. 



O Exercito, a Marinha e a Aeronautica dos EUA estao todos 
empenhados em projetos de 1A (a Universidade da Pensilvania 
e a Universidade do Texas sao consideradas centros de exce- 
lencia para as necessidades militares). 

Doze companhias de computa 9 ao americanas estao trabalhan- 
do para responder ao projeto japones. Elas formam, em Aus- 
tin-Texas, o MCC (Microelectronics and Computer Technolo- 
gy Corporation). 

O Departamento de Defesa americano - DoD - financia 
sozinho mais de 50% das pesquisas em I A, desde 1970 ate 
1985 (dias de hoje), com enfase em Robotica e CompreensSo 
de Linguagens Naturais. 

IA NO BRASIL 

O Brasil esta dando os primeiros passos em IA, apesar de 
existirem aqui pesquisadores em IA desde 1970. 

A primeira fase, forma 9 ao de massa critica, congou no 
IME em abril de 1984, com a realiza 9 ao do 1? Encontro de 
Pesquisadores em IA. Em julho deste mesmo ano, foram ofere- 
cidos pela SBC (Sociedade Brasileira de Computa 9 ao) cursos 
introdutorios, por ocasiao do SEMISH e do SECOMU, para 
mais de 200 estudantes de gradua 9 ao em computa 9 §o (infor- 
matica). A SBC tambem patrocinou em Porto Alegre, em outu- 
bro de 1984, o 19 Congresso de IA nas universidades. Em 
1985, este congresso foi realizado no 1NPE (20, 21 e 22 de no- 
vembro). 

Existem empresas que desenvolvem software em IA, como 
por exemplo a Biodata, uma software-house carioca que criou 
uma subsidiaria especializada para esta tarefa. A Embratel tam- 
bem tern um grupo de IA e o SERPRO esta fazendo um con- 
trato com o departamento de informatica da PUC-RJ, visando 
o desenvolvimento de programas em IA a serem utilizados em 
suas atividades. Ha tambem cursos que sao oferecidos pelo 
IBAM do Rio, para empresas e profissionais. 

Algumas universidades do Rio, Sao Paulo, Pernambuco. Pa- 
rana e Rio Grande do Sul ja contam com projetos de IA (vide 
Plano Integrado de Computagiio, coordenado pela SBC, CNPq 
e FINEP). 

O Instituto Militar de Engenharia,no Rio de Janeiro, pesqui- 
sa na area de software basico LISP (Cobra 500), PROLOG 
(Edisa ou outro computador que tenha o microprocessador 
68000 e a linguagem C) e os Sistemas Especialistas (com enfa- 
se em Medicina, Linguagem Natural e Area Financeira). 

UM EXEMPLO BRASILEIRO 

O IME ainda possui projetos na area de Inteligencia Artifi- 
cial dentro do programa de Mestrado em Informatica. 

Entre as experiencias estao o desenvolvimento de um inter- 
pretador LISP para o Cobra 530 e de um interpretador PRO- 
LOG, desenvolvido em linguagem C, voltado para maquinas de 
16 bits, como o Edisa 680 e os PCs nacionais. 

Uma outra experiencia foi o desenvolvimento de um Siste- 
ma Especialista para a area financeira, feito em LISP e voltado 
para sistemas de 8 bits que utilizem o CP/M. Tal projeto pode- 
ria ter sido reproduzido num Cobra 530, por exemplo, caso o 
IME e outras institui 9 Ses de pesquisa recebessem maquinas 
para pesquisa. 

O Sistema Especialista construido no IME interpreta dados 

f irovenientes de um balan 90 financeiro, realizando inferences 
analises) sobre a situa 9 ao economica da empresa. 



Emmanuel Lopes Passos 6 Mestre em Informatica pela PUC e Doutor 
em Computaqao pela COPPE /U F RJ. £ autor de vdrias pesquisas em In - 
teligSncia Artificial publicadas em diversos pafses. Atualmente 6 Profes- 
sor Titular e Coordenador de Pds-Graduacao da Area de Informatica 
do IME. 
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Projetos & Servipos 



^Viicro[ 



Digitapao nao e mais problems 

pego enviarem pelo correio o servigo 

[CRS 30.000] [CR$ 12.000) 

Programas de interesse MS n.°. p6g. Valor 



Projeto MICRO BUG 

Sim, desejo receber 

D a fita MICRO BUG. com cartSo de refergncia. pela qual 
pagarei CRS 40.000 + CRS 7. BOO pelas despesas 
do correio. 

I\l.°s Atrasados 

Sim, desejo receber 

□ os exemplares de MICRO SISTEMAS (do 31 ao 39) 

pelos quais pagarei o prego unit^no de CRS 3.000. 

Para isto estou enviando cheque no valor de 

CRS a ATI Edrtora. 

NOME 



ENDERECO 
CEP 



.TEL. 



CIDADE. 



ESTADO . 



ATI EDITORA LTDA 

A v.: Presidente WHson, 165/1210 - CEP 20030 
Rio de Janeiro/RJ - Tel.: (021) 262-6306 



SOLUQOES NA MEDIDA EXATA DE SUAS NECESSIDADES. 





A Filcres tem sempre em estoque e para pronta entrega tudo o que 
voce precisa para o seu CPD: fitas impressoras, formuterios, 
diskettes, e mais uma infinidade de outros acessdrios. 

E conta ainda com uma equipe de profissionais altamente 
qualificados, prontos a Ihe prestar o melhor atendimento, 

T udo isso com a qualidade que v. exige e um prego sempre 
compati vel com seu orgamento. 

E sd telefonar e esquecer seu problema. 

A Filcres leva o suprimento que falta ate voce. 
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AJUDANDO A DESENVOLVER TECNOLOGIA 

Rua Aurora. 165 - SP - Tel PBX 101 1) 223 7388 - Telex (Oil) 31298 Direto - SP - 223 1446/ 
222 3458/220 91 13/220 7954 Direto outros Estados 222 5430/221 0326/223 7649/222 0284 






MICRO SISTEMAS avaliou, em seu CPD, a performance 
de quatro produtos que estao no mercado. Sao eles: a placa 
Multiprint, da Microdesign; urn redefinidor de caracteres; e 
dois joysticks, um analogico e outro digital, da Greika. 



Placas e acessorios para seu micro 



Joystick 
para o Apple 




Joystick digital da Greika 
Comercial 



• Osapplemaniacos que gostam de tiiar o maxi- 
mo de proveito de seu equipamento certamcnte de- 
sejam um joystick para poderem usar melhor seus 
programas, ate porque alguns softs nao podem ser 
usados sem ele. Naturalmente os usua'rios ja' tern 
conhecimento que o joystick do Apple e dilerente 
dos demais, isso porque, por ser um projeto pionei- 
ro, apresenta uma leitura de sinais peculiar. Para 
tornar mais facil o conhecimento dos modelos exis- 
tentes, fizcmos a analise de dois deles: um digital e 
outro analogico. 

O digital, fabricado pela Greika Comercial, ja 
deve ser conhecido de muitos usuarios. Em nosso 
teste, esse modek) demonstrou ter uma boa respos- 
ta aos comandos, e seu design anatomico torna o 
manuseio menos cansativo, tendo ainda a facilida- 
de de poder ser fixado a superficies lisas at raves de 
ventosas de borracha que o acompanham. Seu uni- 
oo defeito e nao servir para todos os softs que usam 
joystick, pois nos programas que leem o teclado 
de forma anakSgica ele se torna inutil; porem, mos- 



trou-se eficiente na maioria dos softs testados. £ 
um produto de boa qualidade, apresentado em uma 
embalagem prdpria. 

Ja o analogico, testado no CPD de MS, nao traz 
a marca do fabricante, e sua embalagem consiste 
em um envoltorio de papelao. Funcionou em todos 
os softs testados, porem a precisao dos comandos 
esta aquem do esperado, sendo que em alguns pro- 
gramas e quase impossi'vel dominar o joystick. 0 
acabamcnto final do produto 6 de ma qualidade, 
pois com alguns minutos de uso chega a machucar 
a mao do usuario, devido ao seu formato quadra- 
do. Durante os testes, apresentou defeito de manu- 
seio, de forma que foi considerado um produto fra- 
co. cujo uso so se justifica se o soft nao aceitar ou- 
tro tipo de joystick. 

O joystick digital da Greika pode ser encontra- 
do em varios pontos do mercado, inclusive na Cien- 
cia Moderna Computa^ao a 2.43 ORTN (tel.: (021) 
240-9327). Ja o joystick analogico custa 3.43 
ORTN, na JVA (tel.: (021 ) 262-6968). 



Placa Multiprint 
para TRS-80 




Placa Multiprint, da Microdesign 



• A Microdesign Informatica criou a placa Mul- 
tiprint para resolver os problemas de acentua^ao 
nos compati'veis com o TRS-80. A instala^ao da 
placa. um pequeno circuito impresso de 4x5 cm, 
nao e complicada, e o manual traz varios exemplos 
e desenhos para ajudar o usuario, mas 6 necessario 
que o instalador tenha alguns conhecimentos basi- 
cos de soldagcm para nao danificar seu equipamen- 
to. 

De acordo com o fabricante, a placa funciona, 
inclusive, em alguns processadores de texto, tal 
como o Superscript (e isso realmentc acontece). 
Entretanto, o uso dos caracteres acentuados, tan- 
to nos processadores de texto quanto diretamente 
no micro, e um pouco complicado, e o usuario de- 
vera lcvar algum tempo ate se adaptar com as regras 
descritas no manual, para o uso da acentua^ao. O 
result ado porem e satisfatorio, uma vez que a acen- 
tua^ao podera' ser vista diretamente no video. Em 
alguns casos, no entanto, fica um indeseja'vcl espa- 
90 entre as palavras, como por exemplo na frase: 
“A Multiprint e a unica soluijao...**. Note que 
entre o “Multiprint" e o “e”, e tambem entre “a” e 



“unica", existem obrigatoriamente dois espa^osque 
permanecem tanto no vi'deo quanto na impressora, 
o que pode comprometer esteticamente alguns tex- 
tos. 

Quanto ao funcionamcnto da acentua^ao na im- 
pressora, deve-se conectar entre a saida do micro 
e a impressora um adaptador que acompanha a pla- 
ca Multiprint. Esta interface tern o formato dc um 
cartucho tipo Atari e rcgulagens para diversos tipos 
dc impressora. Sua finalidade e gcrar os caracteres 
acentuados c, nos testes, funcionou perfeitamente, 
reproduzindo todos os caracteres encontrados no 
vi'dco. 

Em MS n? 46, no artigo “Acentuavao nos mi- 
cros nacionais", o leitor encontrara mais detalhes 
a respeito dessc processo. 

A conclusao final e que vale a pena instalar a 
placa, ja que ela nao interfere no iuncionamento 
normal do micro e, pode inclusive ser desativada 
por um simples comando no teclado. Ha modelos 
especi'fioos para os diversos compati'veis com a li- 
nha TRS-80. O pre^o da Multiprint e de 20 ORTN. 
Para maiores informacoes. entre em contato com a 
Microdesign - t els. : (0192) 42-9823 e 52-3477. 



Redefinidor de 
caracteres no Sinclair 




Redefinidor de caracteres 



• Com o lan^amento do TK90X. muitos usua- 
rios de micros Sinclair (compati'veis com o ZX81) 
devcm estar lamcntando ainda mais a falta de re- 
cursos graficos em seu modelo antigo. Uma forma 
de ampliar estes recursos seria dotar seu micro com 
redefini^ao de caracteres, e sobre isto ja se falou 
em MS n? 37 (outubro de 84). Para os que desejam 
manter seu Sinclair e pretendem torna-lo um pouco 
melhor, fizemos a analise de uma nova placa de re- 
defini^ao, que o proprio usuario podera' instalar. 

O Redefinidor FHL e uma pequena placa de 
4 x 6 cm, que deve ser instalada no interior do mi- 
cro sem uso de solda ou ferramentas especiais, o 
que nao obriga o usuario a ter qualquer conheci- 
mento de eletronica. Basta seguir as instrugoes de 
um pequeno manual de instalaijao c dentro de ms- 
tantes seu micro estara dotado de redefinicao, alem 
de mais 1 Kb de memoria a partir do endereco 
12288 c que fica a disposi^ao do usuario quando 
nao estiver usando caracteres redefinidos, sendo 



que a placa pode ser retirada poster iormente sem 
da nos para o micro. 

A placa utilizada para teste em nosso CPD tinha 
um bom acabamcnto e conectores de qualidade, 
estava acompanhada de um manual de instalagao 
com instru^oes precisas, e ainda de uma fita com 
um jogo ja' redefinido e um programa para auxiliar 
na criacao de novos caracteres. O fabricante solici- 
ta que, no pedido do redefinidor, o usuario especi- 
fique o modelo do seu micro, pois as placas sao di- 
ferentes para alguns modelos. O micro da foto 6 
um TK85 com 48 Kbytes e ja' esta com a placa ins- 
talada. 

O pre^o do redefinidor e de 3 ORTN (sem as 
despesas postais). 

Para maiores informa^es, comunique-se como 
fabricante pelo tel.: (021) 552-0621 ou no endere- 
90 : Rua Barata Ribeiro, 668/611 - CEP 22051 - m 
Rio de Janeiro - RJ. 




kbytes e ate 2 discos 
rigidos Winchester de 
10 Mbytes cada. Tecla- 
do de 85 teclas com 

microprocessador 
Monitor monocromatico 

de 12”, com tela verde 
anti-reflexiva. 



PC 16 bits IBM 
compativel. Memoria 
RAM de 256 kbytes, 
expandivel ate 640 

kbytes. Opera em tempo 

real. 2 drives de 5 1/4 
de 340 kbytes cada ou 
drive de 5’ 1/4” de 340 



CRAFT -XT 



gramadas e 10 tun< 
programaveis. Sist( 
tvanita (geraqao d« 
caracteres em por 
gues). Conectores 
nhados a ouro. 



CPU com teclado 
numerico reduzido. 
Monitor profissional 
Compo (24 MHz). 
Interface e drive 5 1; 
32 fun<joes pre-pro- 



SOFTWARE 

EXCLUSIV0S. 



~ AltCPOCOMPUMDORES LTQ4. 

Clappy 

O lado gente da maquina 



Centro: A v. Rio Branco, 88 - loja Q (galeria) 

Tels.: (021) 222-5517/222-5721 
Copacabana: Rua Pompeu Loureiro, 99 

Tels.: (021) 236-7175/257-4398 



COM3 



Na Clappy, o Craft II Plus e o Craft-XT 
ainda tern 3 software exclusivos: 
o atendimento especializado, 
a assistencia tecnica perfeita e as 
melhores condigoes de pre9o 
e pagamento da cidade. 

Passe na Clappy e fa9a um teste 
sem compromisso. Voce vai ver como o 
Craft II Plus e o Craft-XT sao altamente 
compati'veis com voce. 



NA CLAPPY, 
CRAFT II PLUS 
E CRAFT-XT 
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Vlslte nossas lojas ou sollcite a visita de um representante. 



senior 









All Product 




Alioro 
Frchas 



TABELA DE CHR$ DO TK 90X 
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ESCOLHA O PROGRAMA. 




E deixe o computador CP 400 Color II fazer o resto. 








APPLE 

SOFT? 

Venha para o clube 
diferente de Apple 

“MAGIC 

WORLD 

CLUB” 

Escreva para n6s 
e tenha uma 
apple surpresa. 

Caixa Postal 62521. 
CEP 01150 
Sao Paulo, SP. 



MicrocomputapSo 
e Com6rcio Ltda. 



SOFTWARE CP500/CP300 

Bancos de Dados, Processado- 
res de Textos, Compiladores Ba- 
sic, Editor/ Assembler, Comuni- 
capSo, DidSticos, Jogos. 

SOFTWARE CP400 

PPTexto, Calc400, Editor/ As- 
sembler, Editor Grifico, Super- 
tec, Expansor de tela, Comuni- 
cap3o, Didaticos e muitos jogos. 
Todos os programas com exten- 
sa documentap3o em portugufts. 
Melhores prepos e suporte per- 
manente. Solicits relap3o com- 
pleta de ambas as linhas. 



Av. Brig. Faria Lima, 1664 
Cj. 1 101 01452 S3o Paulo - SP 
Fone: (011)813-3277 





Um CLUBE MUITO ESPECIAL 
Para usuarios dos equipamentos 
TK-85, TK90X, CP-400, CP-500 
e compativeis 




COMO ASSOCIADO DO COMPUCLUB... 

1) VOCE PASSA A RECEBER. INTEIRAMEN- 

TE GRATIS. 

- Um curso completo de BASIC 

- Edi<;6es mensais do COMPUCLUB 
News, com programas e dicas espe- 
ciais para o seu equipamento. 

* A cada 45 dias, programas. programas- 
li(6es do curso de grificos e dicas es- 
peciais, gravados em fita HOT LINE, a 
melhor opcao para o seu acervo de 
softs. 



2) - VOCE GANHA O DIREITO DE ADQUI- 
RIR, PELO MENOR PRE^O DO MER- 
CADO. MICROS. SUPRIMENTOS E 
ACESSORIOS 

Sohcite, ainda hoje, informa^des detalhadas de 
como participar do COMPUCLUB e usufruir de to- 
das essas vantagens. Nao se esqueca. porem, de in- 
dicar o tipo de micro que voce possui 

COMPUCLUB — Caixa Postal 46 (38570) Vi^osa-MG 



MO. S4IA.°Q*14 



SSI?!*' 

DadoS 



CURSOS 

DISPONIUEIS 



- Introduqbo 6 Microcomputa<;bo 

- DOS - PC ''Sistemo Operodonol " 

- UNIX "Sistemo Operodonol’ 

- LINGUAGEM C Ling. Programocdo 

- dBASE II 'Progromopoo Bbsico 

- dBASE II Progroma<;ao Avongodo’’ 



MATEWAIS DIDAJICOS: Publicoc6es T£cnicos desenvolvidos em 
Pon;ugu£s 

RECURSOS DIDATICOSi Conceitos e exemplos prdtlcos. otrov£s de 
Micros e Teiao de 72”. 

CURSOS FECHADOS E ABERTOS 



NOVO ENDERECO Ruo Groelondio 1 750 - Jardim Europe 
CEP 01434 Soo Poulo SP 
Telefones 881 4599 881 4032 



dBASE III Progromogoo Bdsico" 
LOTUS 1-2-3 "Plan. Eletrbnica 
Framework Sistemo Integrodo' 
Symphony "Sistemo Integrodo' 
^Mordstor "Processodor de Texto” 

Em desenvoh/imento 









COMPATIVEIS TRS-80 
COLOR COMPUTER 

COPVTAPE 

Proteja o seu patrimonio, 
fazendo "backups" dos seus 
programas gravados em fita. 
Por apenas 2,2 ORTN Ihe 
enviaremos pelos Correios, 
sem mais despesas, uma fita 
cassette com este utilit£rio. 
Fapa ainda hoje o seu pedido, 
atraves de cheque a: 
MICROCOLOR Softcenter, 
lnform5tica Ltda. 

C. Postal: 2951 - RJ - 20001 



ALBAMAR 

ELETR6NICA ltda. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

MAGNETICAS 

1 200 e 2400 p<§s 

VHS — BETAMAX 

De T5 a T120 
• DISKETTES 

5 1/4eiL_ 



Rua Conde de Leopoldma, 
270-A S8o Cnstov8o — R.J. 
Tels.: (021) 580-6729 
580-8276 



I 

REPRESENTANTES AUTORIZADOS 



Para sua maior comodidade 
a ATI Editora Ltda coloca a sua 
disposipdo os seguintas enderepos 
de seus representantes 
autorizados. 




ESTAMOS 
PROCURANDO 
POR VOCE 



RIO DE JANEIRO 

Av. Pres. Wilson. 165 gr. 1210 
CEP 20030 RJ 
Tel.: (021)262 6306 



PORTO ALEGRE 

Com. Rep. Odilon Ltda. 

Rua Vol. da PStria, 323 - Cj. 309 
CEP 90000 Tel.: (0512) 24 8200 R 309 



SAO PAULO 

Rua Oliveira Dias. 153 
Jardim Paulista 

CEP 01433 Tel.: (011)853 3574 



Aurora Assessoria Empresarial Ltda. 
Rua dos Andradas, 1155 sala 1005 
CEP 90000 Tel.: (0512) 26-0839 



NORDESTE BELO HORIZONTE 

M£rck> Augusto das Neves Viana Maria Fernanda G. Andrade 

Av. Conde da Boa Vista. 1389 t6rreo Caixa Postal 1687 
CEP 50000 Recife Tel.: 222-6519 Tel.: (031) 335-6645 





Caso o leitor tenha desenvolvido algum programa 
ou artigo interessante, entre em contato com a 
equipe de MICRO SISTEMAS. 

Elabore um texto explicando qual a utilizapSo do 
programa e junte a isso exemplos de aplicap3o. 

E imprescindivel que a listagem esteja bem 
impressa (na aus£ncia de impressora, use uma 
m3quina de escrever). AI6m destas providencias, 

6 aconselh£vel que voce nos remeta uma cbpia do 
programa em cassete ou disquete, o que tornarS o 
teste mais r£pido. 

RIO DE JANEIRO SAO PAULO 

Av. Pres. Wilson. 165 gr. 1210 Rua Oliveira Dias, 153 - J. Paulista 
CEP 20030 Tel.: (021)262-6306 CEP 01433 Tel.: (011) 853 7758 







Nesta ligao, MS traz um editor de textos. Apesar de simples, ele 
e eficiente e o ajudara na corregao de seus programas em FORTH. 



Curso de FORTH (III) 

Antonio Costa e Mauricio Ribeiro 



E xistem dados e operates relacionados diretamente 
com a estrutura e funcionamento do computador. An- 
tes de come^ar qualquer trabalho, os programadores 
experientes procuram isolar estes objetos e escrever 
palavras que os manipulem automaticamente. Com isto torna- 
se n2o so possivel pensar na programa(jao em termos abstratos 
como tambem escrever aplicativos que podem ser usados em 
diferentes equipamentos. A situa92o e semelhante a de um 
arquiteto que, depois de encontrar um bom mestre de obras, 
para de se preocupar com tijolos e argamassa e concentra-se 
em conceitos tais como quartos, paredes e andares (esta ana- 
logia foi tirada do livro LISP, de Winston e Horn). 

Nesta I1920, apresentamos um editor de textos que podera 
ser usado para corrigir programas em FORTH. Come^aremos 
escrevendo palavras que isolarSo nosso editor das caracteristi- 
cas de uma maquina especifica. As primeiras destas palavras 
servirffo para fornecer dados sobre a tela do computador. 
Entre estes dados estao o numero de linhas e o numero de 
colunas que existem em uma tela, alem da quantidade de le- 
tras. No caso das miquinas compati'veis com o TRS-80, estas 
informa^Oes s2o dadas pelas seguintes constantes: 

0 CONSTANT PRIME1RA-LINHA 
0 CONSTANT PRIMEIRA-COLUNA 
16 CONSTANT NUMERO-DE- LINHAS 
64 CONSTANT NUMERO-DE-COLUNAS 
15 CONSTANT ULTIMA-LINHA 
63 CONSTANT ULTIMA-COLUNA 
95 CONSTANT SI^IBOLO- DO -CURSOR 
1024 CONSTANT LETRAS-POR-TELA 

Se a maquina n2o for TRS-80, substitua os valores das 
constantes por outros condizentes com as e specificates de 
seu video. No caso do Sinclair, por exemplo, use 24 para o 
NUMERO-DE-LINHAS, 32 para o NUMERO-DE-COLUNAS, 
23 para a ULTIMA-LINHA, 31 para a 0LTIMA-COLUNA, 



22 para o SfMBOLO-DO-CURSOR e 768 para o numero de 
LETRAS-POR-TELA. 

Passemos agora ao teclado. Queremos que o usuirio do edi- 
tor consiga mover o cursor por todo o video. Para isto precisa- 
remos de cinco teclas de controle, a saber: 

< ENTER > - Passa o cursor para o comet da se- 
guinte. Em alguns computadores esta tecla e chamada < NEW 
LINE >. 0 codigo dela e 13 no CP- 500 e 1 18 no Sinclair. 

< SETA > — As quatro setinhas servirJo para mover o 
cursor para cima, para baixo, para a esquerda e para a direita. 
0 codigo ASCII delas 6 91, 10, 8 e 9;o codigo Sinclair e 1 12, 
113, 1 14 e 115. 

No CP- 500, estas teclas s£o reconhecidas pelas seguintes 
palavras: 

: ENTER? DUP 13 = ; 

: SETADIREITA DUP 9 = ; 

; SETAESQUERDA DUP 8 = ; 

: SETACEM A DUP 9 1 =; 

: SETABAIXO DUP 10 = ; 

Caso voce esteja usando Sinclair, n2o se esque^a de substi- 
tuir os codigos de tecla dados pelos de sua maquina. 

Alem das teclas de controle, precisaremos de duas outras: 
uma para abandonar o editor e outra para entrar no modo de 
inser^o (explicaremos o que e isto mais adiante). A tecla aue 
usaremos para abandonar o editor £ chamada SAI. No CP- 500, 
ela sera o “e comerciaf \ cujo codigo e 38. No Sinclair, usare- 
mos a tecla de c6digo 136. 

A tecla que colocara o editor no modo de inser^o e 
denominada EDITE. No CP- 500, ela e associada i tecla 
< CLEAR >, cujo codigo e 31. No Sinclair, usaremos a tecla 
EDIT, cujo codigo e 1 17. Abaixo apresentamos as palavras que 
reconhecerSo SAI e EDITE, no CP- 500: 

: SAI DUP 38 = ; 

: EDITE DUP 31 = ; 




Figura 1 



No caso do Sinclair, estas duas defini95es se tornam: 

: SAI DUP 136 = ; 

: EDITE DUP 117 = ; 

Vamos explicar o funcionamento da palavra ENTER?. Ela 
serve para descobrir se o codigo que est£ no topo da pilha e o 
da tecla < ENTER >. A palavra “=”, que aparece na defin^ao 
de ENTER?, verifica se dois numeros da pilha s2o iguais, e 
DUP faz uma c6pia do topo da pilha. Esta c6pia sera usada 
pelo “=”. Examine a figura 1 para compreender como e execu- 
tada a serie de palavras que define ENTER?. 

A palavra “=” retira dois elementos da pilha e, se eles forem 
iguais, devolve o numero 1 . Se os elementos forem diferentes, 
0 e posto na pilha. Em FORTH, o 1 tern significado de verda- 
deiro e o 0 de falso. Digitando 65 118= obteremos 0 na pilha, 
pois e falso que 65 seja igual a 1 18. 

O EDITOR 

Na listagem 1 apresentamos um editor. O texto a ser edi- 
tado por ele aparecera em dois lugares: na tela e em uma reg&o 
de membria aue denominaremos buffer. Na figura 2, o buffer 
come9a na celula cujo endere90 e 3. Isto significa que as celu- 
las de endere90S 3, 4, 5. . . pertencem a ele. 

N6s usaremos quatro buffers, cada um com o tamanho de 
uma tela. No CP- 500, o buffer ter£ 1024 caracteres e no Sin- 
clair, 768. Caso voce esteja usando os compiladores publica- 
dos em MICRO SISTEMAS, o melhor lugar para se colocar os 
buffers e abaixo do FORTH. No Sinclair, o primeiro buffer 
deve ir para o endere90 16630. Isto poderS ser conseguido 
com a declara9^o 16630 CONSTANT INIBUF. No CP- 500, 
esta declara9«fo deve se tornar 19000 CONSTANT INIBUF. 

Agora, entre com o programa da listagem 1. Cuidado para 
n2o cometer erros. N2o se esque9a de digitar antes todas as 
palavras discutidas ate aqui e que, para o caso do CP- 500, 
v2o agrupadas na listagem 2. Se seu computador n5o possuir 
algumas das teclas escolhidas para controlar o cursor, substi- 
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Figura 2 



Listagem 1 



VAR I ABLE PONTEIRO 
VARIABLE I NIC IO- DO -TEX TO 
VARIABLE LINHA 
VARIABLE COL UNA 

i INICIO-LINHA PONTE I RQ 9 NUMERO-DE-COLUNAS / 
NUMERO-DE-COLUNAS • j 

s LETRA INICIO-DO-TEXTO 9 PONTEIRO 9 ♦ C9 t 
: POSICIONE -CURSOR LINHA 9 COL UNA $ PTC s 
i MOSTRE-CURSOR POS I C I ONE - CURSOR SIMBOLO-DO-CURSOR EMIT 
s MOSTRE -LETRA POS I C I ONE -CURSOR LETRA EMIT ; 

: AVANCE CULUNA 9 ULTIMA-COLUNA 1 - 

IF 1 COLUNA ♦' 1 PONTEIRO THEN ; 

« ADIANTE AVANCE DROP j 
j ARMAZENE INICIO-DO-TEXTO 9 PONTEIRO • ♦ C 
MOSTRE -LETRA AVANCE ; 
j RECUE DROP 

COLUNA V PRIMEIRA-COLUNA 
IF -1 COLUNA -1 PONTEIRO THEN j 

s LINHA-SEGUINTE DROP 

LINHA 9 ULTIMA-LINHA < 

IF I L I NHA •* ' 

NUMERO-DE-COLUNAS PONTEIRO ♦' 

THEN ) 

: VOL 1 A-L 1 NHA PRIMEIRA-COLUNA COLUNA 1 
INICIO-LINHA PONTEIRO 1 
LINHA-SEGUINTE j 
l L I NH AN T E R I OR DROP 

LINHA « PRIME I RA-L INHA 
tF -1 LINHA 

PONTEIRO « NUMERO-DE-COLUNAS - PONTE IRU ' 

THEN i 

: MOSTRE -LI NHA LINHA 9 O PTC 

INICIO-LINHA INICIO-DO-TEXTO 9 ♦ 

NUMERO-DE-COLUNAS O 
DO DUP C9 EMIT !♦ LOOP DROP * 
t MOSTRE-TEXTO O O PTC INICIO-DO-TEXTO P 
LETRAS-POR-TELA l - O 
DO DUP Cd EMIT I ♦ LOOP DROP : 
i INSERE DROP ASPACE 

NUMERO-DE -COLUNAS COLUNA t - 2 - DUP 
PONTEIRO 9 INICIO-DO-TEXTO 9 ♦ ♦ SWAP O 
DO DUP I C« OVER C' 1 - LOOP 
C ' MOSTRE -LINHA O J 

i DELETE DROP ASPACE 

PONTEIRO 9 INICIO-DO-TEXTO 9 ♦ 

NUMERO-DE-COLUNAS COLUNA 9-2-0 
DO DUP DUP I ♦ C9 SWAP C* I ♦ LOOP 
C MOSTRE-LINHA O J 
s INS-DEL DROP 
BEGIN KEY 
SETADIREITA 
IF INSERE 
ELSE SETAESQUERDA 
IF DELETE 
ELSE DROP 1 
THEN THEN 
UNTIL * 

s ED I CUES MOSTRE-LETRA 
ENTER'* 

IF VOLTA-LINHA 
ELSE SETABAIXO 

IF LINHA-SEGUINTE 
ELSE SET AC IMA 

IF L INHANTERIOR 
ELSE SETADIREITA 
IF ADIANTE 
ELSE SETAESQUERDA 
IF RECUE 
ELSE EDITE 

IF INS-DEL 
ELSE ARMAZENE 

THEN THEN THEN THEN THEN THEN j 
i LIMP INICIO-DO TEXTO 9 LETRAS-POR-TELA O 
DO ASPACE OVER C* !♦ LOOP DROP s 
: INICIQ O LINHA 1 0 COLUNA • O PONTEIRO • 

15 EMIT MOSTRE-TEXTO | 
s ED INICIQ 

BEGIN MOSTRE-CURSOR KEY 

SAI IF DROP l ELSE EDI COES O THEN 
UNTIL PAGE i 
4 CONSTANT NRO-TELAS 

s ACHENDR DUP 1 IF QUESTION THEN 
DUP NRO-TELAS IF QUESTION THEN 
LETRAS-POR-TELA !♦ SWAP 1 - • 

INIBUF ♦ INICIO-DO-TEXTO * j 
t EDIT ACHENDR ED 

O INICIO-DO TEXTO 9 LETRAS-POR-TELA ♦ C* | 
l LI MPA ACHENDR LIMP j 

» FORTH ACHENDR INICIO-DO-TEXTO 9 LOAD j 



tua-as conforme achar melhor. 

O editor e bastante primitivo. Apesar disso, os poucos 
recursos que ele oferece serio suficientes para as nossas neces- 
sidades, estando resumidos a seguir. 

Antes de entrar com um texto novo, e necessario limpar 
um buffer, eliminando lixo e textos anteriores. Isto e feito 
teclando-se n LIMPA, onde neo numero do buffer que que- 
remos limpar (pode variar de 1 a 4). 

Apos limpar o buffer, voce pode introduzir programas >y 
FORTH nele, digitando n EDIT, onde n e novamente o nume- .*•. 



MICRO SISTEMAS, Dezembro/85 



MICRO SISTEMAS, Dezenrrbro/85 
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CURSO DE FORTH (III) 
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Listagem 2 



DECIMAL 

15 CONSTANT ULTIMA-LINHA 

63 CONSTANT UL T I MA-COLUNA 

16 CONSTANT NUMERO-DE-L INHAS 

64 CONSTANT NUMERO-DE-COLUNAS 
0 CONSTANT PR I ME I RA-L I NHA 

0 CONSTANT PRIME IRA -COLUNA 

95 CONSTANT SIMBOLO-DO-CURSOR 
1024 CONSTANT LETRAS-POR-TELA 
19000 CONSTANT INIBUF 

1 ENTER* 7 DUP 13 « ; 

s SETAD1REITA DUP 9 - j 
: SETAESOIJERDA DUP 8 =• ; 
x SET ABA I XO DUP 10 » ; 
x SETACIMA DUP 91 » | 

* EDITE DUP 31 « j 
x SAI DUP 38 « i 



to do buffer. Ao ver o cursor surgir no canto esquerdo supe- 
rior, tecle o que quiser. Voce podera mover o cursor por toda 
a tela, usando as quatro setas. 

Caso queira inserir espa^os em um certo ponto da linha, 
aperte a tecla EDITE (que corresponde a < CLEAR > no 
TRS-80, e a < EDIT > no Sinclair). Isto fara o cursor sumir. 
Em seguida, comprima a seta para a direita e a linha se abrui, 
deixando espa 9 os no lugar onde estava o cursor. Apertando 
a seta para a esquerda, a linha se fechard e os caracteres serSo 
eliminados. Qualquer outra tecla que voc£ apertar fara reapa- 
recer o cursor e permitir£ que se prossiga com a datilografia. 

Para terminar a entrada de textos, comprima a tecla SAI. Ela 
corresponde ao “e comerciar no TRS-80 (codigo 38) e ao 
quadradinho cinza nas maquinas de logica Sinclair (codigo 
136). 

Programas que voce colocou em um buffer podem ser com- 
pilados. Para isto, digite n FORTH, onde n 6 o numero do 
buffer em que esta o programa. Se n3o houver erros, um OK 
serd impresso. 

Se o compilador detectar erro, digite FORGET 
< NOME >, onde < NOME > e a primeira palavra que foi de- 
finida no buffer contendo o erro. A prdtica comum e iniciar 
um buffer definindo a palavra :TASK Se aparecer erro na 



Listagem 3 



SAVE ACHENDR INICIO DO-TEXTO 
21 5F IF C» DUP 400 ♦ 5F20 f 
5F23 I CSAVE 2A5F1F Cl 
5DC9 5F20 I 5DC 1 5F23 I ; 
CREATE SYSTEM 
C3 C. 2B2 . 



compila^do, basta digitar FORGET TASK. 0 comando FOR- 
GET < NOME > retira do dicionario a palavra < NOME > e 
tudo que foi compilado apos ela. 

Para corrigir um buffer com erros, basta digitar n EDIT e 
realizar as modificasOes que se fizerem necessdrias. 

No Sinclair, o comando SAVE guardara, em cassete, tanto 
os buffers quanto o compilador. No CP-500, siga o seguinte 
procedimento para salvar e recuperar um buffer: 
a - Salve o buffer em cassete com n SAVE; 
b - Para ler um buffer do cassete, tecle SYSTEM, a partir 
do FORTH. Quando surgir o ponto de interroga^Io, digite F. 
Terminada a leitura, o ponto de interrogate surgira de novo. 
Digite 7” para voltar ao FORTH. 

Se seu computador for compativel com o TRS-80, entre 
com as defin^Ces da listagem 3. Elas lhe permitirao salvar e 



Listagem 4 



DIC I MAI 770 CONSTANT TflA VARIABL I INDR 
16630 CNDR $ 

IN 0 EMIT 15 EMIT 20480 DUP IBP$ INPUT 
ASPACE TOKEN NUMBER DROP . 

CALCED TELA SWAP • INDR < ♦ , 

COPY CALCED SWAP CALCED 768 0 
DO DUP CC 3 PICK C$ I ♦ SWAP !♦ SWAP 
LOOP , 

IAIXA 32 0 DO 8 EMIT LOOP , 

LIMPA CALCED DUP 760 ♦ SWAP 
DO 0 I Cl LOOP . 

SALYA CALCED 766 ♦ DP $ . 

LINE LIST CR CR SWAP CALCED SWAP 32 • ♦ 
DUP DUP 32 ♦ SWAP 
DO I CC EMIT 100P CR . 

INLINE 32 0 DO KEY DUP DUP 118 • 

II DROP DROP 

25S DUP HAY! 

THIN EMIT OVIR C$ 1« 

100P CR . 

SCR DUP CALCED PAGI SWAP 0 30 PTC 
REYIRSt REVERSE 0 0 PTC INPUT CR 
SCRLIST CALCED PAGE DUP 768 ♦ 

SWAP DO I CC EMIT LOOP KEY DROP 
EDIT DUP SCRLIST KEY DROP 24 0 
REVERSE DO I DUP 29 PTC IOOP 
REVERSE KEY DROP 22 0 PTC IN IINFIIST 
23 0 PTC IAIXA 23 0 PTC INI INI CR 
FORTH CALCED IOAD . 



recuperar os buffers criados com o editor da listagem 1 . 

OUTRO EDITOR 

Na listagem 4, apresentamos um editor para a linha Sinclair 
ainda mais simples do que o da listagem 1 . Ele foi desenvolvi- 
do pelo colaborador Maurfcio Ribeiro, e a seguir descrevere- 
mos como usd-lo. 

Para limpar um buffer, tecle n LIMPA, como antes. Para 
entrar com textos, digite n SCR. Em seguida, comece a datilo- 
grafia. S6 digite < NEW LINE > no fim. Para mudar de linha, 
ande com a tecla SPACE. 

Os programas podem ser corrigidos seguindo os passos abai- 
xo: 

a — Digite n EDIT. A tela n sera exibida. 
b - Toque no teclado. Numeros aparecerSo nas linhas. 
c - Toque no teclado. Um ponto de interroga 9 ao aparecer^ 
no canto inferior esquerdo. Digite o numero da linha errada. 
Ela sera exibida no pe da tela, junto com uma faixa cinza. 
d - Redigite a linha. Toda a faixa cinza deve sumir. Apague-a 
com espa 9 os, se necessario. N2o use RUBOUT nesta fase. A 
tecla < NEW LINE > e vista com um Z invertido. So a digite 
se ela aparecer na linha com erro. 

Para listar um buffer, tecle n SCRLIST. Para copiar o buffer 
de numero m para o de numero n, tecle m n COPY. 

CONCLUDES 

Nao tente entender o funcionamento dos programas apre- 
sentados nesta li 9 §o. Ainda e cedo para isto. Limite-se a intro- 
duzir o editor da listagem 1 em sua maquina e a aprender 
como usa-lo. Nao se esque 9 a de salvar uma c6pia do compila- 
dor com o editor. 



Antonio Eduardo Costa Pereira 6 formado em Engenharia Eletrdnica 
pela E sco I a Politdcnica da USP. Fez mestrado em Cidncias Espacia is no 
Instituto de Pesquisas Espaciais, em S. J. dos Campos , e doutorado em 
Engenharia Eldtrica na Cornell University, de Nova torque. 

Mauricio Ribeiro, autor do editor para a linha Sinclair , 6 usudrio de 
um TK85 h4 dois anos e estudante de Engenharia na UFRJ, onde cur 
sou disciplines com aphcapSo em computapao. 
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MICRO SISTEMAS, Dezembro/85 




LIGUEJA! 

(011)276.8988 



FORMULARIOS CONTINUOS : O 



• DISKETTES, MINI DISKETTES 
• FORMULARIOS OFICIAIS 

* FITAS PARA IMPRESSORAS 
• FITAS MAGNtTICAS 

* ETIQUETAS AUTO-COLANTES 
• AROUIVOS PARA DISKETTES 

• PASTAS PARA FORMULARIOS 

t , ATENDIMENTO IMEDIATO E P«ONTA ENTREGA 



. AltNUIMtN 

FORMULARIOS E REPRESEVTAQOES LTDA. 

RUA ANTONIO DAS CHAGAS. 180 CEP 04714 - SAO PAULO SF 



O 



Voce escolhe seu fornecedor 
pelo prego? 

Pelo atendimento ou pelo prazo 

de entrega? 

Reuna todos os (tens e 

escolha o melhor 

datamidia 

suprimentos 

• disquetes • fitas impressoras 

• pastas *etiquetas 
• arquivos para disquetes 

• disquetes • fitas magneticas 

• formularios 



DISCOS MAGNETICOS MARCA 



CONTROL DATA 



datamidia 



• SAO PAULO (011)572.1118 

• RIBEIRAO PRETO (016) 625.1571 

• RIO DE JANEIRO (021) 262.9458 

1559 



O "PACOTAO" OFERECE: 



Micros * Software 



Assistencia tecnica 



IBM/PC, XT e AT 



Suprimentos 



Acessorios 



perifericos 



CONSULTE NOSSOS PRECOS 



^DAlAROAD 



Ruo luiz Gois, 1 894 — Sao Paulo 
CEP 04043 - Telex; (Oil) 37755 DTRD 



Suprimentos Prodata 
uma boa impressao do que foi gravado 



ELEBRA — MdNICAEMiLIA 
PROLOGICA P. 720 

* CrS 7.500 



CENTRONICS 150/2 
DISMAC (importada) 
* CrS 85.000 



ELEBRA ALICE 
# CrS 25.050 



* Preqos va lidos at6 novembro/85 



O PRO D AlA 



rlUUiiUl Rua Henrique Ongari, 103 
CEP 05038 — S. Paulo — Tels.. 864-8599 (linha tronco) 
Representantes: 

Riode Janeiro: tone • 253.3481/ Beio Horizonte: tones 225.9871 e 
225.4235/ Curitiba: tones 263.3224, 262.8632 e 263.3256/ 

Porto Alegre: tones 26.6063 e 26.1319/ Recite: tone 227.2969. 



PRO-m-TEC 

Tecnologia Eletrdnica Ltda. 



ASSISTENCIA 

TECNICA 

ESPECIALIZADA 



LINHAS: 

• Apple (Franklin, Basis 108 . tc.) 

• IBM PC 

• Perifericos de todas as linhas 
• Outros sob consults 

CONSULTE-NOS SEM COMPROMISSO 



Rua Cons. Furtado, 648 6° andar cj. 61 - Tel.: (Oil) 270-8744 -SP 
























I 



Linha TRS- 



Melhore o MERGE 

Na se 9 ao DICAS de MS 47 saiu 
uma listagem para simular MERGE 
no TRS 80, so que nao funcionou 
satisfatoriamente no meu CP-300. 
Fiz entSo as seguintes modifica^Oes: 

1 . E»PLE" 16633>»PEEK< 16634>*256-2 
PRINT E <Ob«.t mote rite valor) 

I. L*rre<j«r progrm nuaero I 

4. 1 PEEK t 1 663.3 > ♦PEEK < 16634) ■236-2 

B2-IN1 <E/23A>tBl=E-B2»256 

6. HOKE 16340. B1 iPOKE 1654V. B? 

7. Larrrgar program* nuarro 2 

rt. LET E» (valor anot ado no pano 2> 

V. B2-INT(E/256> *B1«E-B2*256 

10. POKE 16548. Bl IPOKE 16549. B2 

11. LIST 

Nota: £ necessario que o numero das li- 
nhas do programa 1 seja menor que os 
numeros das linhas do programa numero 2. 
£, tamb6m, necessario anotar o valor do 
passo 2 porque ele sera apagado ao se dar 
o comando CLOAD para carregar o 1 9 
programa. 



Marcelo Baradi Spera — RS 

I 



Linha 



TRS-COLOR 



Jogos 

Se voce quer mexer nos progra- 
mas abaixo, tente estas dicas: 

1) - Para aumentar o numero 
de vidas no programa “FROG”, 
digite POKE 12002, X (onde X e 
um numero de 1 a 255). 

- EXEC 46946- lista o programa 
da memoria na tela. 

- EXEC 44759- Gera a mensa- 
gem “?SN ERROR”. 

2) - Para aumentar o numero 
de naves no programa “ASTRO 
BLAST”, digite POKE 6415, X (X 
= n? de 1 a 255). 

- EXEC 44658- gera a mensa- 
gem “?OM ERROR”. 

- EXEC 42521- gera a mensa- 
gem “?I/0 ERROR”. 

3) - Para auementar o numero 
de naves no programa “SPACE 
INVADERS” digite POKE 7674, X 
(X =n? de 1 a 255). 

- EXEC 41 175- col oca no video 
a mensagem do COLOR BASIC. 

- EXEC 32768- coloca no video 
a mensagem do EXTENDED CO- 
LOR BASIC. 

OBS: No caso dos programas, 
carregue-os (CLOADM), digite o 
respectivo POKE e depois rode -os 
(EXEC). 



Linha APPLE 



ONERR GOTO 

Em Applesoft, o comando ONERR 
GOTO permite contornar erros quan- 
do os encontra, antes que seja coloca- 
da uma mensagem de erro, ou mesmo 
que pare a programa^o. Este coman- 
do deve sex dado antes que ocorra o 
erro, de preferencia na primeira linha 
do programa. 

Vejamos um exemplo, com o co- 
mando ONERR GOTO 200. Nesse 
caso, ao encontrar um erro, o progra- 
ma ira pular para a linha indicada no 
ONERR GOTO, que e a 200. Nessa 
linha, o programa iii continuar nor- 
malmente, seguindo as instni 9 Ses da 
prdpria linha, que tanto pode reini- 
ciar o programa, como termind-lo. 

A forma usual de tratar erros com 
o comando ONERR GOTO e escre- 
ver uma sub-rotina para onde o pro- 



grama vd quando ocorra um erro. No 
final dessa rotina, a declara 9 ao RE- 
SUME causa o retomo para o inicio 
da declara 9 ao onde ocorreu o erro. 

ONERR GOTO nao funciona di- 
reito em algumas circunstancias. Por 
exemplo, o Apple II trava-se se hou- 
ver um erro com o comando GET e 
se a sub-rotina de erro tiver em seu 
final a declara 9 §o RESUME, como 
mostra o exemplo abaixo: 

IB ONERR GOTO 160 

29 PRINT TCRlVA UM NUMERO X*GE 

T A 

30 PRINT A 

46 END 

199 PR 1NT"NA0 ESCREVA LETRA • * 

116 RESUME 

Neste programa, se for teclada 
uma letra em vez de numero, o pro- 
grama trava. 



Ricardo F. de Miranda - SP 



Linha TRS 




Oscilosgrafico 

Com esta DICA, voce tera no seu mi- 
cro um grdfico diferente, ou, com algu- 
mas modifica 9 < 5 es, uma nova abertura 
para seus programas. 



14 CLS*P* INT645# . CHB 23 » “ • • • 
OSC IL0SGBAF ICO • • • " 

70 FOB x-a TO 15BBiN«.xT * 

34 P4INT I P II l NT I 1 NPIJ T "0441) OSC I L 4 
CM “ 1 4 

44 P* INI I INPUT-TtHPO <1 a ...» " 

|B 

->• CCS 

64 I OR T-4 TO B 
f TOR X-4 »0 A 

U4 PRINT TAB'141-. iTA8<34>~.-|T 

A4 J 54 ' “ . ” tPR INT TAB<K>-«?H mmc 

o* » •• " 



Aloysio Soares Paredes — RJ 



Linha 



V4 NEXT XINtXT T 

144 FOR A-4 TO * S»EP-t 

114 PRINT TAB<16) . |TAB(34>‘.-| 

TA*f06> IPRINT TA8(X)-Cifl xapa 

coil 

124 NEXT A 
136 OOTO 14 



SINCLAIR 



Inverte a Tela 

Esta dica inverte a tela de uma 
forma diferente da usual, substi- 
tuindo-a instantaneamente por sua 
imagem refletida, como em um es- 
pelho. Os pixels individual dos ca- 
racteres permanecem inalterados, 
devido d forma como e mapeado o 
video e a baixa resolu 9 §o de um mi- 
cro da linha Sinclair. 

I6SI4 • » A 4C «4 II 14 •• l» 51 
SO l J 4 a 14 F| U 26 
4« 14 «C f 7 (4 FI 24 13 
II r? II 31 46 14 S4 SO 
13 14 14 C4 

Digite agora esse programa, em 
BASIC, que demonstra o funciona- 
mento da sub-rotina e de RUN: 

S FOR i«l TO as 

14 PRINT • ISIE EH UN TlSU DO INwfRU . 

24 Nf IT J 

34 RANO U5R I 6tl 4 

Se ao invds de letras colocarmos 
determinados desenhos em modo 
grdfico, em LOOP, teremos a ilu- 
sdo de movimento tridimensional. 



Linha SINCLAIR 



Armazenamen to 
de imagens 

Eis uma forma de armazenar 
qualquer imagem em uma varia- 
vel, dentro da questdo lan 9 ada 
no artigo “Riscos, Rabiscos e Cria- 
tividade” (MS n ? 27). 

16 FAST 

26 REM IMAGEM EXEMPLO 
36 FOR AM TO 79* 

46 PR I NT "X" j 
36 NEXT A 
66 PAUSE 4E4 
79 POKE 16437.255 
166 LET X%-"" 

116 LET Z-PEEK 1639642564PEEK 1639 
741 

120 FOR J»Z TO 1*72 4 

130 IF PEEK JM18 THEN LET J-JM 

140 LET X%-Xi*CMRi PEEK J 

150 NEXT J 

Apos a execu 9 ao, este progra- 
ma pode ser deletado (sem usar 
NEW). Para testa-lo, digite PRINT 
X$ e veja na tela o desenho que 
foi armazenado na variavel X$. 
Nao use CLEAR, RUN ou NEW 
para que a varidvel permane 9 a na 
memoria. 



Luiz Garcia - PR 



Eduardo Mirabelli A. de Medeiros - SP 



Gino Raniero M. Lozada — RJ 




TK 2000 



Malha Eletronica 

Esta dica gera uma combina 92 o 
de padrOes coloridos ate a conclu- 
s3o do efeito final, ou seja, um 
efeito de malha multicolorida: 



16 HOMf 

9 VlAB 61HIAB 12* INVERSE l PR INI 
MAI M*. LLE TRONICA' xNOUMAL SVTAB 9: 
HI All lhif’RlNT 'POR'lVTAB UsHTAU 
HtPklNT 'JORGE PABLO ZAPATA H I OLk 
.< t UTAH ?0tMlA0 9$PR INT' < APEh IE 
9UA10UFH lECl-A)" IGET At 
\9 MUR 

46 ► OR C-l TO 7 
‘>6 MCOL 0R»L 

66 F OR A-l TO 1 ?1 STEP I 
*0 HP L O I ; 8 . A 10 1 A 

• »*• ‘..HIND A*«C 7 > ♦ 1ft . C 7»70 
'0 NLx t A 
166 N1 X T L 
1 |0 Of. I ti TEXT 



Jorge Pablo Zapata Rivera - BA 



Linha TRS-COLOR 



In 

CM 



POKEs no Color 

Entre com estes POKEs e 
aproveite melhor o seu Color: 

POM 104. 01 PAM 163.0tl.LOAO 

Chama um programa em BASIC 
sem apagar a tela. 

POKF 283.X 

X = seleciona a velocidade da 
resposta do teclado. 



Diminui a velocidade dos carac- 
teres escritos na tela. Para voltar 
ao normal digite POKE 359, 126. 

POKE 359.755 

Desliga todas as teclas. 
Para voltar ao normal digi- 
te POKE 359, 126. 

POKE 359.128 



Converte caracteres “STRING” 
em caracteres “GRAFICOS”. Para 
voltar ao normal digite POKE 
359, 126. 

POKE 359 , 126 : POKE 3*6 162*P0KE 1 
61 .133 

Os caracteres s£o dobrados na te- 
la. Para voltar ao normal, digite 
POKE 359, 57. 



Simula 9 ffo da linha: 10 AS = IN- 
KEYS :IF AS = ” ” THEN 10. 



Efeito especial do PCLS de acor- 
do com o valor dado a “X”. 



Efeito especial do PAINT, CO- 
LOR, etc. de acordo com o valor 
dado a “X”. 

Frank Costa B. Hudson - MG 



Linha TRS-COLOR 



Envie suas dicas para a Redapao de 
MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 



Linha TRS-80 



Som/BAS 

Este programa coloca na RAM 
uma rotina em linguagem de maqui- 
na que produz um som de frequen- 
ce F e dura 92 o D, na formula: 

WW =USR(D • 256 +255 -F) 

A rotina fica a partir do endere- 
90 FF00H. Se voce tiver menos de 
48 Kb, mude os valores dos endere- 
90 s nas linhas 10 e 20 . 

Voce pode usar este programa 
no inicio de outros, para chamar a 
rotina com o USR, cada vez que for 
necessario. 

16 POKE .6561 .253SF0KE 16562.234 
s IF PEFX « 163V6> »201 THEN POKE 16 
526.6 SPOKE 16527.255 ELSE DEF USR 
—256 

•0 f OR X — 256 TO .V8IRCAO riPOK 
E X. TINE XT 

i9 DAIA205.12 7. 16.62.1.14.0.237. 
91.61.64.69.47.230.3.1 r v 211.255 
,13,40.4. 16.246.74.242.37.32.241 
.701 



Eduardo Ribeiro Poyart - RJ 





10 clsioosub fle 


Beep no teclado 


•0 CLEAR 60. MI 43 

10 G0SIIB 80 1 ST *H I 43 

40 FOR *°5I TO HisREAD OPSsn-OAL 




6 » | FOff 

50 5*S*N SPOKE X. Ns NEXT 


Rode o programa abaixo e con- 


60 IF S< >4997 THLN PRINT T AB < B ) " 
DATA ERROR : ‘ <>UND 10.10:STOP 


seguira um teclado sonoro no seu 


79 EXEC ST s NEW 

H0 HI *Pf EK < tt6>*2364PEFx » 1 17 > sRE 


Color. O programa foi testado em 
um CP -400 e funcionou perfeita- 


TURN 

90 DAT A 10. HD. 00, 16.BF .01 .68.30 
100 DATAHD.00.03. VF . 90 . 3V , CC . 8C . 


mente. 


1 1.1 D.01 

1 1 0 DAT AaB . 30 . HC . F V . 9F . 9D . 39 . 34 . 
36. CT ,00 

176 DAIA04.OD.8D.58.D7.8L .BD.A9. 


Antonio Lopes Neto — SP 


56 . 33 

1.10 DATA36. 7E.8C.F 1 




INKEY$ - Enderegamento 
do cursor 

Na linha 60, simulamos um INKEYS 
atraves do endere 90 283, que indica a 
tecla que foi ou esta sendo pressionada. 
Para usa-lo como INKEYS, devemos 
zerar o seu conteudo antes da leitura 
pelo PEEK, assim a “sujeira” da ultima 
tecla pressionada desaparece. 

Na linha 100, temos uma sub-rotina 
que endere 9 a diretamente o cursor atra- 
ves das variaveis L (linha) e C (coluna). 
Para uma maior velocidade na execu 92 o 
do programa, convem coloca -la no ini- 
cio. 

10 H0M1 

20 INPUT~LINHA. COLUNA .1 ,1 :HOM» 

36 G0SU8 100 

40 PR INT "MC - 1000 : 

50 POKE 283.0 

60 IF PET » <283 > < >ASL < "1 • MIEN * 

0 

70 GOTO 1^ 

106 PRINI LMHt<77 > |tHR6»61 • :• MF % 

< L > i CHF % * t • i * i ; :RE TURN 



Edmundo T. Donato Junior — AL 



Conversor 

Esta dica converte decimal em 
hexa e vice-versa. 



,000 U l Hl< 100051 Lb! YM 
5010 A*- 01 234567B‘>'ABrnEF‘ 

••670 INMil LNIKAUA D > f < I MAL OH 
<H)I XADEt IMAI t M% 

.010 IF M6 H THr N 50V0 ELSE CL 

■ 040 INPUI <«Ui«L O NUMERO FM DEL I 
MAI jNKl SSPR1NI J530 .Ni' 

• .050 I N 1 . : N < T • * I X INT<XMM6*1 
TN I N 1 > X 

060 II N 15 I HE.N f ♦ 1 sGOTO 505 

0 ri ‘>E N < Y ♦ 1 • «N»1 

• 0 'e f i i TO Y • 1 :n$ = mID 6‘ A% . N 
< I » . 1 > •NiJNI XT ? PR TNI J5 40. NT. 

i0 ’• PR1NUH60. 0UIHA INANSI OKMA 

1 A<- » <S/N> 

•J0H0 MS^INKI i it IF Mi * I HEN 508 

0 F L SE IF Mi- S" T Ml N * 000 ELS! 

1 NO 

• 0 J 9 LLbS INPUT OHAt O NUMERO EM 
HF xiiDEC 1 MAI iNiJPR INta 5 .« 0 . Nif • c 

5 1 00 I OR |*l IO 1 6 S IF M j I >i < Ni 1 , 
1 • MII>VA%. I 1 • THEN 51 *0 FI » NF 

• I 

5110 GOTO 51 <0 

5170 N< Y ** I : Y *Y ♦! ip>>T0 *160 

‘ • 1 10 F ON 1*1 TO Y- 1 IN N* • N« I >- 1 » 

•1 6t < Y- 1 I » INF XT IPRINT J53B.N: GAT 

• » 50 '5 



Mervyn de Oliveira — MG 
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HABERKORN. E ., O 

Computador na AdministracSo 
de Empresas. Editors Atlas. 

Em O Computador na Admi • 
nistragdo de Empresas, o autor 
procura mostrar de forma bastan- 
te clara a utilizapao dos recursos 
da inform^tica, visando desmisti- 
ficar o uso do computador. 0 li- 
vro apresenta tdcnicas de como 
e onde estes recursos devem ser 
aplicados e o que as empresas 
precisam fazer para aicanpar auto- 
mate) total dos seus procedi men- 
tos administrative*. 



FREEDMAN, A., dBase II para 
principiantes ; BYERS R. A., 
dBase 1 1 ApUca goes Comerciais/ 
dBase/ll; Editora McGraw-Hill. 

A MacGraw-Hill est£ lanparv 
do, em conjunto com a Datald- 
gica (representante do Grupo 
Ashton-Tate, no Brasil) maisuma 
s6rie de livros. Desde jd, destacam- 
se os tftulos sobre os gerenciado- 
res de dados dBase II e III. Em 
dBase II para principiantes sao 
abordados temas mais simples, 
como o que s£o sistemas de ge- 
renciamento de dados; as carac- 
terfsticas e capacidades do dBase 




II; como instalar, testar e traba- 
Ihar com o dBase II e o planeja- 
mento de um banco de dados, 
chegando at6 a algumas nopdes 
sobre a construpao de um progra- 
ms em dBase. 

No livro sobre aplicapdes co- 
merciais sSo apresentados os furv 
damentos do dBase II, mas o 
autor explora principalmente te- 
mas como o sistema de contabili- 
dade; lista e etiquetas; t6cnicas 



de inserpao de dados e depura- 
pSo de erros e efeitos especiais. 

Em dBase III , o autor amplia 
as possibilidades de uso de um 
banco de dados, levando em con- 
siderapao diversos tipos de aplica- 
pdes. Dentre os capftulos, estao: 
formas simples de utilizapao de 
um banco de dados — seu furv 
cionamento; planejamento, cons- 
trupao, modificapfo e manuterv 
pao de um banco de dados e rela- 
tdrios especiais. 



SILVEIRA, M., Explorando o 
TK90X, Editora Aleph. 

O objetivo deste livro 6 dar 
informapdes adicionais ao usudrio, 
ou seja, ir a!6m do que consta no 
manual do TK90X. Para isto, em 
grande parte dos programas foram 
utilizados recursos que n5o sao 
abordados de maneira completa 
no manual (ou dsvezesignorados), 
o que dd ao usudrio a chance de 
conhecer melhor seu equipamen- 
to. 

Entre os programas do livro 
est3o: Ensinando a subtrair; Brin- 
cando de desenhar; TK hora; 
Esquiando no vfdeo e Saindo do 
BASIC. 



PASSOS, E. L., Micro-Mini 
Computadores Brasil eiros, Editora 
Campus. 

Este livro fornece ao leitor fer- 
ramentas para auxili3-Jo na com- 
parap3o dos vSrios minis e micro- 
computadores existentes no mer- 
cado brasileiro. AI6m das informa- 
pdes bisicas, 6 o primeiro livro a 
apresentar um m6todo, para que o 
leitor fapa a sua prdpria anilise e 
escolha o equipamento mais ade- 
quado 3s suas necessidades. 



ENDEREQO DAS EDITORAS 



• Aleph Editora — Av. Brigadei- 
ro Faria Lima, >451, conjunto 31, 
CEP 01451, tel.. (011) 813-4555, 
Sao Paulo; 

• Editora Atlas — Rua Conse- 
Iheiro Nubias, 1384, CEP 01203, 
tel.: (011) 221 -9144, Campos Elf- 
sios, Sao Paulo; 

• Editora Campus — Rua Barao 
de Itapagipe, 55, CEP 20261, 
tel.: (021) 284-8443, Rio de Ja- 
neiro; 

• Editora McGraw-Hill — Rua 
Tabapua, 1105, CEP 04533, tel.: 
(011) 280-6622, Itaim Bibi, Sao 
Paulo. 




Controla o estoque de itens com 
Especificagdo. Estoque Minimo. Unidade. 
Fomecedor. Localizagdo e outras 
informagoes relacionadas no item como 
Custo Medio, Entrpdas e Saidas no periodo, 
etc. 

Fornece Listagens Gera l e Parcial dos 
produtos. Ustagem Fisico-Fi nance ira, 
Listagem dos produtos abaixo do estoque 
minimo. Lista de Pregos e Etiquetas, entre 
outras. 

Admite tarn hem, Reajuste de Pregos. 
Alteragao de Dados e Exclusdo de Produtos. 



Faz a Folha de Pagamento de sua empresa. 
emitindo relator ios como Guia de I A PAS. 
Guia de FGTS, Relag do de Empregados, 

Re lag do para I.R., Relagdo para Banco. 
Informe de Rendimentos, Acumulados 
Anuais. RAIS e Recibo de Pagamento. 

A folha pode ser semanal ou mensal. 

As tabelas sao modificadas pelo proprio 
usudrio. 

Permite tambem. adiantamentos de saldrio, 
reajuste salarial, alteragdes de acumulados e 
outras fungoes que agilizem o processamento 
da Folha de Pagamento da empresa. 



A Contabilidade de um mes em 2 Horas! 

Este Sistema permite o cadastramento de 
histdricos padronizados e de piano de contas 
com ate 5 niveis. 

Emite Diario. Razdo. Balancete. Balango, 
Demonstragdo de Resultados. Demonstragdo 
de Lucros e Prejuizos acumulados. Ustagem 
por centro de custo e extrato de contas. entre 
outras fungoes. 



Compativeis com as linhas TR5-80 e Apple. 








. . m Av. Rio Branco, 45 - sola 1.3 1 1 

I Afl&ttKLf Rio de Janeiro - CEP 20. 090 

Um jeitofdcil de resolver Tels.: ( 021)263-124 J e 233-0615 

os problemas de seu computador. 






A NASA JON oferece a voce e a sua empresa assistencia tecnica total, 
gar ant ia per marten te e man t dm a sua disposigdo programadores 
e analistas para desen volver sistemas especificos sob encomenda. 
Conte com a NASA JON SISTEMAS. 
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ERMINAIS RACIMEC 



EM AUTOMAQAO COMERCIAL: 

OA CAIXA REG I SIR A DOR A AO TERMINAL PDV. 






Tidado Cfenie 

I 



DiSjSfffy Ctafile 



Chaves 

Oper a dew, Supervisor 



interfaofl para 
Gents ncos 



Owptay 

Operator 



Interface 
para P ententes 



Tedadocto 
32 Proves 



Comuntcagdes 



Leitor de 

Cartto Magnehzado 






Os produtos RACIMEC para aplicapdes 
comerciafs foram dssenvoMdos com 
base am exlensa pesquisa junto aos 
usuarios. resultando em sotugdes 
realistic a man te ajustadas as condrgoes 
brasileiras e adequsdas a diversos 
modos de operagflo. Os equipamenlos 
RACIMEC- 1300 para uso nos diversos 
segmentos do comdrcio encontram 
aplicagdes como: 

■ caixa registradora etetrpnrca, off-line, 
stand-alone; 

• caixa inteligente off-line, com capture 
ou dados em meio magrrttico: 

* cafota-leoninaS, com comumcagoes 
on-line a concern radores: 

• terminal on-line de ponto-de-venda; 

* ierminal on-line para desenvolvimento 
prdprio de programas do usudno. 



Trfes importantes caracieri sheas sao 
notadas nesta linha oe produtos 

- o equipamenio bdsrco a sempre o 
mes mo, vanando moduios oonligur&veis 
e programas, migrando "para cima"' 

ou ’ para ba xo" enire os van os modos. 
permitindo padroniiagiSkO de operag&es. 

* os terminals sfio extremamente 
ftexiveis, aceiiando uma sdrie de 
perirtneos: lertara Pprica para carnets 
de crediarto ou etiquetas de mercadona. 
gravador de cartuchos de fita magnenca. 
bafanga eletrdnica, display para cliente 
teclado para cliente. leitor de cartSo 
magnetizado. leitor de eddigo de barras, 
gaveiade dmheiro, baieria de 
alimentagao de emergencia, etc. 

- os equipamentos podem ser 
programados pela tabrica OU pelo 



propuo cliente. em linguagem 
parametnzada e em linguagem de alio 
nivel. por qualquer micro 
Os programas podem ser multiplicados 
e re met id os em cassetes RACIMEC 
oferece tambem sua completa tmha de 
microcom put adores, multiplexadores e 
per if dn cos que, assoc lada aos terminals 
caixa. apresenta a melhor relagdo 
cusio'periormanee de lodo o mercado, 
em ambientes de automagdo comercial 
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A Micradigita I 
lanpa no Brasil 
o micro pessoal 
demabrsucesso 
no mrnda 

A panir de agora a hisiona dos 
micros pessoais va> ser corua da am duas 
partes: antes e depots do TK 90X. 

0 TK 90X e, simplesmente, o umco 
micro pessoal fancada no Brasil qua 
merece a classificacao da “'software 
machine': um caso raro de micro qua 
pela soa facilidade de uso. grandes 



recursos e preco acesslvel receheu a 
aiencao dos cnadores de pro gramas e 
perifericos em lodo o munda 



Para voce ter uma ideia, existem 
mais de 2 mil programas. 70 




revisias de usudrios disponiveis para e!e 
internee inn a Interne. 

E aqm o TK 90X ia sai com mais de 
100 programas. enquamo outros estao 
em lase final de desenvolvimemo para 
Ihe dar mais opcoes para trabalhar, 
aprender ou se divertir qua com qualquer 
outro micro. 

0 TK 90X tern duas versoes de 
memdna Ide IB ou 48 Kl, imagem de 
alta resoiucao qrafica com B cores, 
carregamento rapido de programas 
[comrolavel pelo prbpno monitor), som 
pela IV, letras maiusculas e minuscules 
e ainda uma exclusividade: acemuacao 
em ponugues. 

Faca o seu programa: peca ia uma 
demonstracao do novo TK 90X, 

AUCRODIGTML 
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